Вычислить приближенное значение z=arctg x и сравнить с x — x^3/3 + x^5/5 — … +(-1)^n *x^(2n+1) + … (|x|<1), прекращая вычисления, когда очередной член по абсолютной величине будет меньше eps=0.00001 - Pascal(Паскаль)

uses crt;
var x,eps,s,si,t,y:real;
    i:integer;
begin
clrscr;
repeat
write('|x|<1  x=');readln(x);
until abs(x)<1;
eps:=0.00001;
s:=0;
si:=x;
t:=x;
i:=0;
while abs(s-si)>eps do
 begin
  s:=si;
  i:=i+1;
  t:=-t*x*x;
  si:=si+t/(2*i+1);
 end;
writeln('S=',s:0:6);
y:=arctan(x);
write('Arctg(',x:0:2,')=',y:0:6);
readln
end.

uses crt;
var x,eps,s,t,y:real;
    i:integer;
begin
clrscr;
repeat
write('|x|<1  x=');readln(x);
until abs(x)<1;
eps:=0.00001;
s:=x;
t:=x;
i:=0;
repeat
  i:=i+1;
  t:=-t*x*x;
  s:=s+t/(2*i+1);
until abs(t)<eps;
writeln('S=',s:0:6);
y:=arctan(x);
write('Arctg(',x:0:2,')=',y:0:6);
readln
end.