PROGRAM M1;
const
  size = 10;

type
  arrType = array[1 .. size] of integer;
  buffer = array[1 .. 2*size] of integer;

procedure merge(var a: buffer; b, c: arrType;n_b, n_c: integer);
var p, p_b, p_c: integer;
begin
  p_b := 1; p_c := 1;
  p := 1;

  while (p_b <= n_b) and (p_c <= n_c) do begin
    if b[p_b] < c[p_c] then begin
      a[p] := b[p_b]; inc(p); inc(p_b);
    end
    else begin
      a[p] := c[p_c]; inc(p); inc(p_c);
    end;
  end;

  while p_b <= n_b do begin
    a[p] := b[p_b]; inc(p); inc(p_b);
  end;
  while p_c <= n_c do begin
    a[p] := c[p_c]; inc(p); inc(p_c);
  end;
end;


var
  one: arrType;
  two: arrType;
  res: buffer;
  i,j,k,na,nb: integer;
begin
  write('Количество эл 1 массива ');
  readLn(na);
  for i:=1 to na do
   read(one[k]);
  write('Количество эл 2 массива ');
  readLn(nb);
  for i:=1 to nb do
   read(two[j]);
  merge(res, one, two,na,nb);
  for i := 1 to 2 * size do
    write(res[i]:3);
  writeln
end.