{Дано два файли, що мўстять цўлў числа, pозмўщенў у поpядку неспадання.
Утвоpити з цих чисел неспадну послўдовнўсть, записану в тpетўй файл}
program z1;
var f,g,d: text; a,b: integer;
begin
  assign(f,'dat1.dat');
  assign(g,'dat2.dat');
  assign(d,'out.dat');
  reset(f);
  reset(g);
  rewrite(d);
  if not eof(f) and not eof(g) then begin read(f,a); read(g,b) end;
  while not eof(f) and not eof(g) do
    begin
      if a>b then begin write(d,b,' '); read(g,b) end
             else begin write(d,a,' '); read(f,a) end;
    end;
  if eof(f) then begin while not eof(g) and (b<a) do
                         begin
                           write(d,b,' '); if not eof(g) then read(g,b);
                         end;
                       write(d,a,' '); write(d,b,' ');
                       while not eof(g) do
                         begin
                           read(g,b); write(d,b,' ');
                         end;
                 end;

  if eof(g) then while not eof(f) and (a<b) do
                   begin
                     write(d,a,' '); if not eof(f) then read(f,a);
                   end
            else begin
                   write(d,b,' '); write(d,a,' ');
                   while not eof(f) do
                     begin
                       read(f,a); write(d,a,' ');
                     end;
                 end;
  close(f);
  close(g);
  close(d);
end.