Ряды Маклорена

uses crt;
var x,e,t,s:real;
    n:integer;
begin
repeat
write('|x|<1 x=');
read(x);
until abs(x)<1;
repeat
write('e>0 e=');
read(e);
until e>0;
if e>=abs(x) then s:=x
else
 begin
  n:=0;
  t:=x;
  s:=t;
  while abs(t)/(2*n+1)>e do
   begin
    n:=n+1;
    t:=t*x*x*2*n*(2*n-1)/(4*sqr(n));{2*n*(2*n-1)=(2n)!}
    s:=s+t/(2*n+1);
   end;
 end;
writeln('S=',s:0:3);
write('arcsinx=',arctan(x/sqrt(1-x*x)):0:3);
end.

while abs(t)/(2*n+1)>e do
   begin
    n:=n+1;
    t:=t*x*x*2*n*(2*n-1)/(4*sqr(n));{2*n*(2*n-1)=(2n)!}
    s:=s+t/(2*n+1);
   end;
 end;
writeln('S=',s:0:3);
write('arcsinx=',arctan(x/sqrt(1-x*x)):0:3);
end.

if e>=abs(x) then s:=x //если введенная точность не меньше модуля х, то сумма=х
else //иначе
 begin
  n:=0;//кол. членов ряда=0
  t:=x;//текущий член ряда=х
  s:=t; //и мумма=х
  while abs(t)/(2*n+1)>e do //пока модуль текущего члена,
  //деленный на 2*n+1(эта величина не входит в рекурретное отнощение) больше точности
   begin
    n:=n+1; //увеличиваем номер
    t:=t*x*x*2*n*(2*n-1)/(4*sqr(n));//домножаем t на x^2, получаем x^(2n+1)
                        //и на 2*n*(2*n-1)=(2n)! и делим на 4*sqr(n), получаем 4^n+(n!)^2
    s:=s+t/(2*n+1);//делим на не входящий в отношение элемент  2*n+1
   end;
 end;
writeln('S=',s:0:3);//выводим сумму
write('arcsinx=',arctan(x/sqrt(1-x*x)):0:3); //и вычисленое значение по формуле
                                             //(для сравнения и проверки)
end.