Написать программу, вычисляющую Cosx=1-x^2/2!+x^4/4!…+〖(-1)〗^k*x^2k/(2k)! — Pascal(Паскаль)

Uses
  CRT;

Var
  sum, fact, x, st: real;
  i, n, k, j: integer;

begin
  write('x,n: ');
  readln(x, n);
  k := 1;
  sum := 1;
  for i := 1 to n do
  begin
    fact := 1;
    st := 1;
    for j := 1 to i * 2 do
    begin
      fact := fact * j;
      st := st * x;
    end;
    k := -k;
    sum := sum + (k * (st / fact));
  end;
  write('sum:=', sum);

end.