{$MODE OBJFPC}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
program test;
uses exceptions;
var I, J: PtrUInt;
begin
   try
      J := 1;
      Writeln(0, ' ', J);
      for I := 1 to 65 do
      begin	
         J := J shl 1;
         Writeln(I, ' ', J);
      end;
   except
      ReportCurrentException();
   end;
end.