program skaiciaus_paieska;
  {$N+}
  var a: double;
begin
  a := 1;
  repeat
    a := 2 * a;
  until a + 1 = a;
  writeln (a:24:1);
  { gaunamas skai‡ius: 1.84467440737095516E+19 }
end.
