Вычисление выражения с заданной точностью

var x,e,s,t,y:real;
    i:integer;
begin
repeat
write('|x|<1  x=');
read(x);
until abs(x)<1;
repeat
write('e [0.000001;0.01] e=');
read(e);
until (e>=0.0000001)and(e<=0.1);
i:=0;
t:=x;
s:=x;
while abs(t)/(2*i+1)>e do
 begin
  i:=i+1;
  t:=-t*x*x;
  s:=s+t/(2*i+1);
 end;
writeln('После вычисления суммы ',i,' слагаемых разложения');
writeln('функции arctg(x) в ряд Тейлора при х=',x:0:6,' получилось ',s:0:6);
writeln('что совпадает с теоретическим значением ',arctan(x):0:6,' c точностью e=',e:0:6);
end.

repeat  //ввод х >-1 и <+1 с проверкой
write('|x|<1  x=');
read(x);
until abs(x)<1;
repeat //ввод точности
write('e [0.000001;0.01] e=');
read(e);
until (e>=0.0000001)and(e<=0.1);
i:=0;//нулевой член
t:=x; //=х
s:=x;//сумма = х
while abs(t)/(2*i+1)>e do //пока модуль числителя, деленный на 2i+1
                          //больше точности
 begin
  i:=i+1;//наращиваем
  t:=-t*x*x;//менякем знак и домножаем на x^2
  s:=s+t/(2*i+1);//делим на числитель и прибавляем
 end;
writeln('После вычисления суммы ',i,' слагаемых разложения');
writeln('функции arctg(x) в ряд Тейлора при х=',x:0:6,' получилось ',s:0:6);
writeln('что совпадает с теоретическим значением ',arctan(x):0:6,' c точностью e=',e:0:6);
end.

program z3v5;
var x,e,s,t,y:real;
    i:integer;
begin
repeat
write('|x|<1  x=');
read(x);
until abs(x)<1;
repeat
write('e [0.000001;0.01] e=');
read(e);
until (e>=0.0000001)and(e<=0.1);
i:=0;
t:=x;
s:=x;
repeat
      i:=i+1;
      t:=-t*x*x;
      s:=s+t/(2*i+1);
until abs(t)<e;
 
writeln('После вычисления суммы ',i,' слагаемых разложения');
writeln('функции arctg(x) в ряд Тейлора при х=',x:0:6,' получилось ',s:0:6);
writeln('что совпадает с теоретическим значением ',arctan(x):0:6,' c точностью e=',e:0:6);
end.

Program Arctang;
 
(*
Вычисление приближенного значения бесконечной суммы
arctg(x)=x - 1x^3/3 + x^5/5 - ...
*)
 
var 
  x, elem, sum, eps: double;
  n: uint64; //longint 
    
begin 
 
  Write('Ведите число X: ');
  ReadLn(x);
  
  eps:= 0.001; //точность, с которой вычисляется значение ряда
  n:= 1;
  elem:= x;
  sum:= x;
  repeat
    n:= n + 2;
    elem:= -elem*x*x;    
    sum:= sum + elem/n;
  until abs(elem/n)<eps;
  
  WriteLn('Сумма ряда ', sum);
   
end.