program probal;
uses newdelay, crt;
var f:text; i:integer; s:string;
Begin
   assign(f,'proba.txt');
   {$I-};
   reset (f);
   While not EOF(f) do
   begin
      readln (f,i,s);
      write (i,s);
   end;
   {$I+};
   close(f);
   Readln;
end.