program minden_masodik;
var f:file of integer;
    i:integer;
    p:boolean;
begin
     p:=false;
     assign(f,'a.dat');
     reset(f);
     while not eof(f) do
     begin
      read(f,i);
      if p then write(i:5);
      p:=not p
     end;
     close(f);
     readln
end.