Вычислить значение функции cos(x), заданной рядом Тейлора

var x,e,t,s:real;
    n:integer;
begin
write('x=');
readln(x);
e:=0.0001;
n:=0;
t:=1;
s:=t;
while abs(t)>e do
 begin
  n:=n+1;
  t:=-t*x*x/(2*n)/(2*n-1);
  s:=s+t;
 end;
writeln('s=',s:0:4);
write('cos(x)=',cos(x):0:4)
end.

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