С6.2-0-29

const n=10;

var i,j,f:integer;
    f1,f2,fn:integer;
    sum:real;
    fact:integer;
    fj:integer;
    nextdigit:boolean;

begin
  i:=2;
  fj:=1;
  sum:=0;
  fact:=0;
  while i<>n do
    begin
      f1:=1;
      f2:=1;
      for f:=1 to fj do
        begin
          fn:=f1+f2;
          f2:=f1;
          f1:=fn;
        end;
      if i mod 2 = 1 then
        begin
          for j:=1 to i do
            begin
              if j mod 2 = 1 then
                fact:=fact+j;
            end;
          if nextdigit=true then
            begin
              nextdigit:=false;
              sum:=sum+(f1/fact);
              inc(i);
            end
          else
            begin
              nextdigit:=true;
              sum:=sum+(f1/fact);
            end;
        end
      else
        begin
          for j:=1 to i do
            begin
              if j mod 2 = 0 then
                fact:=fact+j;
            end;
          if nextdigit=true then
            begin
              nextdigit:=false;
              sum:=sum+(f1/fact);
              inc(i);
            end
          else
            begin
              nextdigit:=true;
              sum:=sum+(f1/fact);
            end;
        end;
      fj:=fj+2;
      writeln(sum);
    end;
end.