Вычисление конечных сумм

program fsdf;
 const a=0.1; b=1;
       h=0.1; n=35;
 
       var r,sum,x,y,z,c,s: real; i,k:integer; f: smallint;
       begin
       x:=a; c:=cos (1); s:=sin(1);
       writeln ('-----------------------------');
       writeln (' | x | y | s |');
       writeln ('-----------------------------');
       while x<=b+h/2 do
       begin
       y:= (1-(sqr (x)/2)*cos(x)-x/2*sin(x));
       sum:=1; z:=1;
       for k:=1 to n do
       begin;
       f:=2*n;
       for i:=1 to f do
       r:=r*i;
       end;
       begin
       z:=-z*x/(k+1);
       sum:=exp(n*ln(-1))*((sqr(f)+1)/r)*exp(f*ln(x))
       end;
       writeln ('|', x:5:2,' |',y:9:6, ' |', sum:9:6,' |');
       x:=x+h
       end;
       writeln ('------------------------------');
       readln
       end.

program fsdf;
uses crt;
const a=0.1; b=1;
      h=0.1; n=35;
var sum,x,y,z: real;
    k:integer;
begin
writeln ('------------------------------');
writeln ('|   x  |     y    |     s    |');
writeln ('------------------------------');
while x<=b+h/2 do
 begin
  y:=(1-x*x/2)*cos(x)-x*sin(x)/2;
  sum:=1; z:=1;
  for k:=1 to n do
   begin
    z:=-z*x*x/(2*k*(2*k-1));
    sum:=sum+(2*k*k+1)*z;
   end;
  writeln ('|', x:5:2,' |',y:9:6, ' |', sum:9:6,' |');
  x:=x+h
 end;
writeln ('------------------------------');
readln
end.