Program zad;
var f,t,r: text;
s,st: string;
p: boolean;
Begin
   assign(f,'h:\zad\p.txt');
   assign(t,'h:\zad\g.txt');
   assign(r,'h:\zad\f.txt');
reset(f);
rewrite(r);
   while not eof(f) do begin
   readln(f,s);
   writeln(r,s);
      end;
close(f);
close(r);
rewrite(f);
reset(t);
      while not eof(t) do begin
   readln(t,s);
   writeln(f,s);
      end;
close(f);
close(t);
rewrite(t);
reset(r);
      while not eof(r) do begin
   readln(r,s);
   writeln(t,s);
      end;
close(t);
close(r);
readln;
End.