uses crt;
type mang=array[1..500] of integer;
var a,b,c:mang;
    n,m,k:integer;
Procedure nhap(x:mang; y:integer);
var i:integer;
begin
        for i:=1 to y do
        begin
                write('PT[',i,'] = ');readln(x[i]);
        end;
end;
Procedure xuat(x:mang; y:integer);
var i:integer;
begin
        for i:=1 to y do write(x[i],' ');
end;
Procedure sx(x:mang; y:integer);
var i,j,t:integer;
begin
        for i:=1 to y-1 do
                for j:=i+1 to y do
                        if x[i]>x[j] then
                        begin
                                t:=x[i];
                                x[i]:=x[j];
                                x[j]:=t;
                        end;
end;
Procedure tron(a,b,c:mang; m,n,k:integer);
var i,j,t:integer;
begin
        i:=1; j:=1; t:=1;
        while (i<=m) and (j<=n) do
        if a[i]<=a[j] then
        begin
                c[t]:=a[i];
                t:=t+1;
                i:=i+1;
        end
        else
        begin
                c[t]:=b[j];
                t:=t+1;
                j:=j+1;
        end;
        k:=t-1;
end;
Begin
        clrscr;
        write('mang a: ');readln(m);
        nhap(a,m);
        write('mang b: ');readln(n);
        nhap(b,n);
        clrscr;
        write('mang a sau sap xep: ');
        sx(a,m); xuat(a,m);
        writeln;
        write('mang b sau sap xep: ');
        sx(b,n); xuat(b,n);
        writeln;
        write('sau khi tron 2 mang: ');
        tron(a,b,c,m,n,k); xuat(c,k);
        readln
End.