При некоторых заданных x, N и E, определяемых вводом, вы-числите сумму N

uses crt;
var x,e,t,s:real;
    n,i,k:integer;
    st:string;
begin
clrscr;
repeat
write('|x|<1 x=');
readln(x);
until abs(x)<1;
repeat
write('Введите натуральное число n>1 n=');
readln(n);
until n>1;
t:=x;
s:=t;
for i:=1 to n do
 begin
  t:=t*x*x*(2*i-1)*2*i/(4*sqr(i));
  s:=s+t/(2*i+1);
 end;
repeat
write('Введите точность 0<e<=0.01 e=');
readln(st); {введем как строку}
val(st,e,i);
until (e>0)and(e<=0.01);
k:=length(st)-1;{чтобы узнать количестыо знаков после запятой}
writeln('При N=',n,' сумма=',s:0:k);
i:=0;
t:=x;
s:=t;
while abs(t)/(2*i+1)>e do
 begin
  i:=i+1;
  t:=t*x*x*(2*i-1)*2*i/(4*sqr(i));
  s:=s+t/(2*i+1);
 end;
writeln('При точности e=',e:0:k,' сумма=',s:0:k,' n=',i);
e:=e/10;
i:=0;
t:=x;
s:=t;
while abs(t)/(2*i+1)>e do
 begin
  i:=i+1;
  t:=t*x*x*(2*i-1)*2*i/(4*sqr(i));
  s:=s+t/(2*i+1);
 end;
writeln('При точности e=',e:0:k,' сумма=',s:0:k,' n=',i);
e:=e/10;
write('arcsin(x)=',arctan(x/sqrt(1-x*x)):0:k);
readln
end.