Вычислить значения функции, заданной с помощью ряда Тейлора

uses crt;
var xn,xk,dx,x,s,t,eps: real;
    n: integer;
    function f(x:real):real;
    begin
    f:=sqr e(x);
    end;
begin
clrscr;
repeat
write ('vvedite nachalo intervala |x|<1 xn=');
readln (xn);
until abs(xn)<1;
repeat
write ('vvedite konec intervala x>', xn:0:1,' x<1 xk=');
readln (xk);
until (xk>xn) and (xn<1);
repeat
write ('vvedite shag tabyljacii dx>0 i <', xk-xn:0:1, 'dx=');
readln (dx);
until (dx>0) and (dx<xk-xn);
write ('vvedite tochnost', ' eps=');
readln (eps);
x:=xn;
writeln (' tabylirovanie funkcii y=Arth (x) dlja |x|<1');
writeln (' na intervale [',xn:0:1,';',xk:0:1,'] s shagom ',dx:0:1);
writeln;
writeln ('****************************');
writeln ('* X  *    S   *  E  * N *');
writeln ('****************************');
while x<=xk+dx/2 do
begin
s:=x;
t:=x;
n:=0;
while abs (t)>eps do
begin
t:=t*x*x;
s:=s+t/(2*n+1);
end;
writeln ('*',x:4:1,'*',s:8:4,'*',sqr e(x):8:4,'*',n+1:3,'*');
x:=x+dx;
end;
writeln ('****************************');
readln
end.

uses crt;
var xn,xk,dx,x,s,t,eps: real;
    n: integer;
begin
clrscr;
write ('vvedite nachalo intervala xn=');
readln (xn);
write ('vvedite konec intervala xk=');
readln (xk);
repeat
write ('vvedite shag tabyljacii dx>0 i <', xk-xn:0:1, 'dx=');
readln (dx);
until (dx>0) and (dx<xk-xn);
write ('vvedite tochnost', ' eps=');
readln (eps);
x:=xn;
writeln ('       tabylirovanie funkcii y=e^x');
writeln (' na intervale [',xn:0:1,';',xk:0:1,'] s shagom ',dx:0:1);
writeln;
writeln ('*******************');
writeln ('* X  *    S   * N *');
writeln ('*******************');
while x<=xk+dx/2 do
 begin
  s:=1;
  t:=1;
  n:=0;
  while abs (t)>eps do
   begin
    n:=n+1;
    t:=t*x/n;
    s:=s+t;
   end;
writeln ('*',x:4:1,'*',s:8:4,'*',n+1:3,'*');
x:=x+dx;
end;
writeln ('*******************');
readln
end.