С6.2-0-29

var i:integer;//С6.2-0-29
    fact1,fact2:integer;
    f1,f2,fn:integer;
    sum:real;
    second:boolean;

begin
  f1:=1;
  f2:=1;
  i:=1;
  fact1:=i;
  fact2:=1;
  while i<>10 do
    begin
      if i mod 2 = 0 then
        begin
          if second = true then
            begin
              second:=false;
              inc(i);
            end
          else
            begin
              second:=true;
              fact2:=fact2*i;
            end;
          sum:=sum+(f1/fact2);
        end
      else
        begin
          if second = true then
            begin
              second:=false;
              inc(i);
            end
          else
            begin
              second:=true;
              fact1:=fact1*i;
            end;
          sum:=sum+(f1/fact1);
        end;
      writeln(sum);
      fn:=f1+f2;
      f2:=f1;
      f1:=fn;
      fn:=f1+f2;
      f2:=f1;
      f1:=fn;
    end;
end.