var
    i, j, k, n, m : integer;
    a : array [1..5] of byte = (3, 4, 5, 7, 8 );
    b : array [1..4] of byte = (1, 2, 6, 9);
    c : array [1..10] of byte;
begin
    n := 5;
    m := 4;
    
    i := 1;
    j := 1;
    k := 0;
    while (i<= n) and (j<=m) do
    begin
        k := k + 1;
  
        if a[i] < b[j] then 
        begin
            c[k] := a[i];
            i := i + 1;
        end
        else
        if a[i] = b[j] then 
        begin
            c[k] := a[i];
            i := i + 1;
            j := j + 1;
        end
        else
        if a[i]> b[j] then 
        begin
            c[k] := b[j];
            j := j + 1;
        end;
  
    end;
    while i <= n do
    begin
        k := k + 1;
        c[k] := a[i];
        i := i + 1;
    end;
    while j <= m do
    begin
        k := k + 1;
        c[k] := b[j];
        j := j + 1;
    end;
  
    for i := 1 to k do
        Write(c[i], ' ');
    WriteLn();
  
end.