Вычислить значение выражения

function pow(x, y: real): real;
var
 t: real;
begin
 t := abs(x);
 if x < 0 then
  pow := (-1)*exp(y*ln(t))
 else
  pow := exp(y*ln(t));
end;
 
function factorial(n: integer): longint;
var
 i: integer;
 f: longint;
begin
 f := 1;
 for i := 2 to n do
  f := f * i;
 factorial := f
end;
 
var
 x, sum: real;
 i, n: integer;
 
begin
 read(n, x);
 repeat
  inc(i, 2);
  sum := sum + pow(cos(i*x), i)/factorial(i);
 until i/2 = n;
 write(sum);
end.

uses crt;
var x,s,p,f:real;
    n,i,j:integer;
begin
write('x=');
read(x);
write('n=');
read(n);
s:=0;
f:=1;
for i:=1 to n do
 begin
  f:=f*2*i*(2*i-1);
  p:=1;
  for j:=1 to 2*i do
  p:=p*cos(2*i*x);
  s:=s+p/f;
 end;
write('s=',s:0:4);
end.