var
a: array[1..999] of integer;
b: array[1..999] of integer;
c: array[1..999] of integer;
ia, ib, ic,n1,n2 : integer;
begin
  writeln('Введите размер первого массива');
  readln(n1);
  writeln('Вводите элементы первого массива');
  for ia:=1 to n1 do
  begin
    write(ia,'-ый = ');
    readln(a[ia]);
  end;
  writeln('Введите размер второго массива');
  readln(n2);
  writeln('Вводите элементы второго массива');
  for ib:=1 to n2 do
  begin
    write(ib,'-ый = ');
    readln(b[ib]);
  end;
  writeln(b[ib]);
  ia := 1; ib := 1; ic := 1;
  for ic := 1 to (n1+n2) do
  begin
    if a[ia] < b[ib] then
    begin
      c[ic] := a[ia];
      ia:=ia+1;
      if ia > n1 then
      begin
        ia := n1;
      end;
    end

    else
    begin
      c[ic] := b[ib];
      ib := ib + 1;
      if ib > n2 then
      begin
        ib := n2;
      end;
      if ic = (n1+n2) then
        begin
        c[ic] := a[ia];
        end;
    end;
  end;

  for ic:= 1 to (n1+n2) do
  begin
    write(c[ic] + ' ');
  end;
end.