program Noname12;

var
x : array [1..10] of integer;
y : array [1..10] of integer;
z : array [1..20] of integer;
i, j, k : integer;
begin
x[1] :=12;
x[2] :=15;
x[3] :=16;
x[4] :=22;
x[5] :=28;
x[6] :=33;
x[7] :=37;
x[8] :=48;
x[9] :=50;
x[10] :=90;

y[1] :=8;
y[2] :=24;
y[3] :=33;
y[4] :=35;
y[5] :=40;
y[6] :=48;
y[7] :=66;
y[8] :=70;
y[9] :=80;
y[10] :=99;
 i,j,k:=1;
    repeat
        if x[i] < y[j] then
            begin
            z[k]:=x[i];
            i:=i+1;
            k:=k+1;
            end;
        if y[j] < x[i] then
            begin
            z[k]:=y[j];
            j:=j+1;
            k:=k+1;
            end;
        until (i>10) or (j>10);
        if i>10 then
         for k:=k to 20  do
            z[k] :=

            
            

                    

            

readln();
end.