Program BTT;
Uses crt;
Var A,B,C: array[1..10000] of longint;
m,n,i,j,tg,vt,sl: longint;
Begin
Clrscr;
Write('Nhap so luong phan tu mang A: '); Readln(n);
For i:=1 to n do
Begin
Write('A[',i,'] = '); Readln(A[i]);
End;
Write('Sap xep mang A: ');
For i:=1 to n-1 do
For j:=i+1 to n do
If A[i]<A[j] then
Begin
tg:=A[i];
A[i]:=A[j];
A[j]:=tg;
End;
For i:=1 to n do Write(A[i],' ');
Writeln;
Write('Nhap so luong phan tu mang B: '); Readln(m);
For i:=1 to m do
Begin
Write('B[',i,'] = '); Readln(B[i]);
End;
Write('Sap xep mang B: ');
For i:=1 to m-1 do
For j:=i+1 to m do
If B[i]<B[j] then
Begin
tg:=B[i];
B[i]:=B[j];
B[j]:=tg;
End;
For i:=1 to n do Write(B[j],' ');
Writeln;
For i:=1 to n do
C[i]:=A[i];
sl:=n+m;
vt:=1;
For i:=n+1 to sl do
Begin
C[i]:=B[vt];
inc(vt);
End;
For i:=1 to sl-1 do
For j:=i+1 to sl do
If C[i]<C[j] then
Begin
tg:=C[i];
C[i]:=C[j];
C[j]:=tg;
End;
Write('Mang C: ');
For i:=1 to n+m do Write(C[i],' ');
Readln
End.
