http://www.cyberforum.ru/attachments/308168d1379441220

var
  p,x: real;
  i,n,k: integer;
begin
  repeat
    write('Введите x, n (x>0; n>0): ');
    readln(x,n);
  until (n>0) and (x>0);
  p:=1;
  for k:=1 to n do
    p:=p*((k*ln(x)+3/7)/exp(1/k*ln(exp((k-1)*x))));
  p:=sqrt(abs(x))-p+1;
  writeln('P = ',p);
  readln;
end.