С6.2-0-29

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

begin
  writeln('введите eps');
  readln(eps);
  f1:=1;
  f2:=1;
  i:=1;
  fact1:=i;
  fact2:=1;
  sum1:=(f1/fact1);
  fact1:=fact1*i;
  second:=true;
  fn:=f1+f2;
  f2:=f1;
  f1:=fn;
  fn:=f1+f2;
  f2:=f1;
  f1:=fn;
  while sum1>eps do
    begin
      sum:=sum+sum1;
      writeln('sum = ',sum,'; sum1 = ',sum1);
      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;
          sum1:=f1/fact2;
        end
      else
        begin
          if second = true then
            begin
              second:=false;
              inc(i);
            end
          else
            begin
              second:=true;
              fact1:=fact1*i;
            end;
          sum1:=f1/fact1;
        end;
      fn:=f1+f2;
      f2:=f1;
      f1:=fn;
      fn:=f1+f2;
      f2:=f1;
      f1:=fn;
    end;
end.