uses crt;
var i,j,n,t:longword;
    a,b,c:array[0..2002] of longword;
begin
    clrscr;
    write('Nhap n: ');readln(n);
    write('Nhap mang A: ');
    for i:=1 to n do
        begin
            read(a[i]);
            c[i]:=a[i];
        end;
    write('A=[ '); for i:=1 to n do write(a[i],' '); writeln(']');
    write('Nhap mang B: ');
    for i:=1 to n do
        begin
            read(b[i]);
            c[n+i]:=b[i];
        end;
    write('B=[ '); for i:=1 to n do write(b[i],' '); writeln(']');
    n:=n shl 1;
    for i:=1 to n-1 do
        for j:=i+1 to n do
            if c[i] > c[j] then
                begin
                    t:=c[i];
                    c[i]:=c[j];
                    c[j]:=t;
                end;
    write('C=[ '); for i:=1 to n do write(c[i],' '); writeln(']');
readln;readln;
end.