var N: integer;
    pocet: integer;
    Ntina, Soucet: real;
begin
   N := 0;
   Soucet := 1.00;

   while Soucet = 1.00 do
   begin
      N := N + 1;
      Ntina := 1 / N;

      Soucet := 0.00;
      pocet := 0;

      while pocet < N do
      begin
         Soucet := Soucet + Ntina;
         pocet  := pocet + 1;
      end;

      writeln( N, ' ', Soucet )
   end
end.







var x: integer;
begin
   x := 30*1000;
   x := x + 30*1000;
end.


var x, max: integer;
begin
   read( x ); max := x;
   while x<>-1 do
   begin
      if x > max then
                    max := x;
      read( x )
   end;
   write( max )
end.