Вычислить сумму ряда

uses crt;
var x,t,e,sp,se:real;
    n,i:integer;
begin
clrscr;
repeat
write('Введите |x|<1 и x=');readln(x);
until abs(x)<1;
write('n=');readln(n);
sp:=x;
t:=x;{первый член=x}
for i:=2 to n do{считаем со второго}
 begin
  t:=t*x*x;
  sp:=sp+t/(2*i-1);
 end;
sp:=2*sp;
writeln('При n=',n,'  полная сумма=',sp:0:6);
writeln;
repeat
write('Введите точность (0;1) e=');readln(e);{точность типа 0,0001}
until (e>0)and(e<1);
se:=x;
t:=x;i:=1;{считаем при первой точности}
while abs(t)>e do
 begin
  i:=i+1;
  t:=t*x*x;
  se:=se+t/(2*i-1);
 end;
se:=2*se;
writeln('При е=',e:0:6,' сумма=',se:0:6,' слагаемых=',i);
e:=e/10;{при точности на порядок выше(меньше)}
se:=x;
t:=x;i:=1;
while abs(t)>e do
 begin
  i:=i+1;
  t:=t*x*x;
  se:=se+t/(2*i-1);
 end;
se:=2*se;
writeln('При е=',e:0:6,' сумма=',se:0:6,' слагаемых=',i);
writeln;
writeln('Аналитическое значение ln((1+x)/(1-x))=',ln((1+x)/(1-x)):0:6);
readln
end.