Вычислить значения функции

var xn,xk,dx,e,x,t,s:real;
    n:integer;
begin
repeat
write('Введите начало интервала |xn}<1 xn=');
readln(xn);
until abs(xn)<1;
repeat
write('Введите конец интервала ',xn:0:2,'<xk<1 xk=');
readln(xk);
until (xk>xn)and(xk<1);
repeat
write('Введите шаг dx<',xk-xn,' dx=');
readln(dx);
until dx<xk-xn;
repeat
write('Введите точность 0<e<1 e=');
readln(e);
until(e>0)and(e<1);
writeln('Таблица значений функции y=arctg(x), представленной разложением в ряд Тейлора');
writeln('на интервале [',xn:0:2,';',xk:0:2,'] с шагом ',dx:0:2,' с точностью ',e:0:6);
writeln('----------------------');
writeln('|  x  |  f(x)  |  n  |');
writeln('----------------------');
x:=xn;
while x<xk+dx/2 do
 begin
  n:=0;
  t:=x;
  s:=t;
  while abs(t)/(2*n+1)>e do
   begin
    n:=n+1;
    t:=-t*x*x;
    s:=s+t/(2*n+1);
   end;
  writeln('|',x:5:2,'|',s:8:4,'|',n+1:5,'|');
  x:=x+dx;
 end;
writeln('----------------------');
//дальше необязательно,просто интересно проверить сходится или нет
writeln('Проверка последнего значения');
x:=x-dx;
write('x=',x:0:2,' arctg(x)=',arctan(x):0:4);
end.