С6.1-0-29

var i:integer;//С6.1-0-29
    f1,f2,fn:integer;
    tfive:integer;
    fact:integer;
    sum:real;

begin
  f1:=1;
  f2:=1;
  tfive:=5*5*5;
  fact:=2*1;
  for i:=4 to 20 do
    begin
      sum:=sum+(f1/(tfive*fact));
      writeln(sum);
      fn:=f1+f2;
      f2:=f1;
      f1:=fn;
      tfive:=tfive*5;
      fact:=fact*i;
    end;
end.