Вычислить значения сумм ряда S=1-(x^2/2!)+…+(-1)^n (x^2n/(2n)!, при заданном числе повторений N=40 и для значений х из диапазона 0,1<х<1,0 с шагом dx=0,2.Полученные суммы сравнить с функцией у=cosx - Pascal(Паскаль)

Uses wincrt;
Var
  x,Xn,Xk,dX,S,A,y:Real;
  i,k,n:Byte;
Begin
  Xn:=0.1; Xk:=1.0: dX:=0.2;
  k:=trunc((Xk-Xn)/dX)+1;
  x:=Xn;
For i:=1 to k do
 Begin
  S:=1.0; A:=1.0; n:=0;
   While n<40 do
    Begin
     n:=n+1;
     A:=-A*x*x/((2.0*n-1.0)*2.0*n);
     S:=S+A;
     y:=cos(x);
     end;
Writeln('Symma ryada:',S:8:4);
Writeln('Chislo chlenov ryada:',n:3);
Writeln('Funkcya y ravna:',y:8:4);
x:=x+dX;
end;
end.