Найти сумму по формуле

[фндрей324]

Помогите найти сумму

[newerow1989]

const eps=0.001;
      x=2;
var n:integer;
    s,s1:real;
begin
   s1:=(x-1)/x;
   n:=1;
   s:=s1;
   Repeat
      n:=n+1;
      s1:=exp(n*ln(x-1))/n/exp(n*ln(x));;
      s:=s+s1;
   Until Abs(s1)<eps;
   Writeln(s:5:5);
   Readln;
end.

Сойдет?