С6.1-0-29

const n=10;

var i,j:integer;
    f1,f2,fn:integer;
    sum:real;
    fact:integer;

begin
  f1:=1;
  f2:=1;
  fact:=0;
  for i:=2 to n do
    begin
      for j:=1 to i do
        begin
          fact:=fact+j;
        end;
      sum:=sum+((f1)/(exp(ln(5)*(i+1))*fact));
      fn:=f1+f2;
      f2:=f1;
      f1:=fn;
      writeln(sum);
    end;
end.