Program Parse3 (input,output);
(*Prg reads std nw outfile and sums hits*)


var
l,n,j,k,g,F                                            :longint;
x,y                                                      :char;
ifil,ofil                                                :text;
namei,p,u                                                    :string;
z,r,s,t                                                  :real;
Begin
{  writeln('Enter the name of the input file');
  readln(namei);}
  namei:='e:\pros\fin\1.txt';
  assign(ifil,namei);
  reset(ifil);
  assign(ofil,'txt400.24');
  rewrite(ofil);
  n:=0;
  k:=0;
  l:=1;
  for k:=1 to 24 do
      readln(ifil);
  while not eof(ifil) and not eoln(ifil) do
     begin
       for n:=1 to 24 do
         readln(ifil);
       readln(ifil,p,u);
       writeln(ofil,p,u);

     end;
 close(ifil);
 close(ofil);
end.