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

var xn,xk,e,x,s,h,t,at:real;
    n:integer;
begin
repeat
write('Введите начало интервала [-1..1] xn=');
readln(xn);
until(xn>=-1)and(xn<1);
repeat
write('Введите конец интервала, больше ',xn:0:1,' <=1 xk=');
readln(xk);
until (xk>xn)and(xk<=1);
repeat
write('Введите шаг табуляции, меньше ',xk-xn:0:1,' h=');
readln(h);
until h<xk-xn;
repeat
write('Введите точность 0<e<1 e=');
readln(e);
until(e>0)and(e<1);
clrscr;
x:=xn;
writeln('       Табулирование функции F(x)=arcctg(x),');
writeln('     представленной разложением в степенной ряд');
writeln('        на интервале ',xn:0:1,'..',xk:0:1,' с шагом ',h:0:1);
writeln;
writeln('            -----------------------------');
writeln('            |   X   |    S    | arcctg  |');
writeln('            -----------------------------');
while x<=xk+h/2 do
 begin
  s:=-x;
  t:=-x;
  n:=0;
  while abs(t/(2*n+1))>=e do
   begin
    n:=n+1;
    t:=-t*x*x;
    s:=s+t/(2*n+1);
   end;
  s:=pi/2+s;
  if x>0 then at:=arctan(1/x)
  else if x=0 then at:=pi/2
  else at:=pi+arctan(1/x);
  writeln('            |',x:6:1,' |',s:8:4,' |',at:8:4,' |');
  x:=x+h;
 end;
writeln('        -----------------------------------');
end.