program test;

var a, b : Double; o : Boolean; t : Cardinal;

begin
  a := 1.0000001;
  b := a;
  o := False;
  WriteLn(a, '   ', b);

  for t := 1 to 1000000000 do begin
    if o
      then a := a * b
      else a := a / b;
    o := not o;
  end;

  WriteLn(a);
end.