С6.3-0-29

const n=20;

var i,j,k:integer;
    fact,fact2:integer;
    f1,f2,fn:integer;
    ff,fj,fk:integer;
    sum:real;

begin
  i:=1;
  ff:=2;
  fj:=1;
  fk:=5;
  sum:=0;
  while i<>n do
    begin
      f1:=1;
      f2:=1;
      for j:=1 to ff do
        begin
          fn:=f1+f2;
          f2:=f1;
          f1:=fn;
        end;
      ff:=ff+2;
      for j:=1 to fj do
        fact:=fact+j;
      fj:=fj+2;
      for j:=1 to fk do
        fact2:=fact2+j;
      fk:=fk+2;
      sum:=sum+((f1)/(fact*exp(ln(fact2)*2)));
      writeln(sum);
      inc(i);
    end;
end.