var
    t,u,v:text;
    s:string;
begin
 assign(t,'skouda.txt');
 assign(u,'skouda1.txt');
 assign(v,'skouda2.txt');

  rewrite(t);
  reset(u);
  reset(v);
  while not eof (u) do begin
  readln(u,s);
  writeln(t,s);
  end;
  while not eof(v) do begin
  readln(v,s);
  writeln(t,s);
  end;
  close(t);
  close(u);
  close(v);
end.