Вычисление бесконечных сумм

var 
xn, xk, x, dx, eps, s, y: extended; 
i, k, iter: integer; 
 
 
begin
xn := 0.5; 
xk := 10; 
dx := (xk - xn) / 9; 
x := xn; 
writeln( '------------------------------------------------'); 
writeln( '| X | Eps | Function | Proverka | Iter |'); 
writeln( '------------------------------------------------'); 
while x <= xk do 
begin 
 
 
 
for i := 1 to 6 do 
begin 
s := 0; 
y := (x - 1) / (x + 1); 
k := 1; 
iter := 0; 
eps := exp(ln(10) * (-i)); 
while abs(y) >= eps do 
begin
s:=s+y;
y:=y*( ( (2*k-3)*(x-1)*(x-1) )/( (2*k-1)*(x+1)*(x+1)  ) ); 
k := k + 1; 
iter := iter + 1; 
end; 
s:=2*s; 
y:=ln(x); 
writeln( '| ', x:5:2, ' | ', '10^-', i, ' |', s:11:8, ' | ', y:11:8, ' | ', k:4, ' |'); 
end; 
x := x + dx; 
writeln( '------------------------------------------------'); 
end; 
end.

var x,e,y,t,s:real;
    k:integer;
begin
x:=2;
e:=0.00001;
k:=1;
y:=(x-1)/(x+1);
t:=y;
s:=t;
while abs(t)/(2*k-1)>e do
 begin
  k:=k+1;
  t:=t*y*y;
  s:=s+t/(2*k-1);
 end;
s:=s*2;
writeln('S=',s:0:5);
writeln('ln(x)=',ln(x):0:5);
end.