турбопаскаль

[mashkecha]

Помогите, пожалуйста!
Как подсчитать такую сумму:
n от 1 до 25

S = 1 + (cos (пи/4) *x )/1! + (cos (2 * пи/4) * x^2)/ 2! + .... + (cos (n*пи/4)*x^n)/n!

[rubius2008]

s:=1; f:=1; xx:=1;
for i:=1 to 25 do begin
  f:=f*i; xx:=xx*x;
  s:=s+cos(i*pi/4)*xx/f;
end;