var
y,x,f: real; s: real; i,n: integer; eps,fn:real;
begin
s:=0;
for i:=1 to n do
s:=s+(exp((2*n-1)*ln(x)))/(2*n-1);
f:=s;
writeln ('f=',f)
begin
y:=(1/2)*ln((1+x)/(1-x));
n:=1;
s:=x;
while abs(y-s) > eps do
begin
n:=n+1;
s:=s+(exp((2*n-1)*ln(x)))/(2*n-1);
writeln ('s=',s)
end;
fn:=n;
writeln ('fn=',fn);
end;
end.
так или я опять что-то не поняла?