var
a: array[1..5] of integer;
b: array[1..5] of integer;
c: array [1..10] of integer;
i,j,n: integer;
max : integer;
Begin
n:=5;
RANDOMIZE;
for i:=1 to n do
Begin
a[i] := random(100);
b[i] := random(100);
end;
{sort a}
for i:=1 to n do
for j:=1 to n do
if a[i] < a[j] then
Begin
max := a[j];
a[j] := a[i];
a[i] := max;
end;
{sort b}
for i:=1 to n do
for j:=1 to n do
if b[i] < b[j] then
Begin
max := b[j];
b[j] := b[i];
b[i] := max;
end;
for i:= 1 to 5 do
Begin
c[i] := a[i];
c[i + n] := b[i];
end;
{sort c}
for i:=1 to n*2 do
for j:=1 to n*2 do
if c[i] > c[j] then
Begin
max := c[j];
c[j] := c[i];
c[i] := max;
end;
{output a,b,c}
for i:= 1 to n do
Begin
WriteLn(' a[',i,'] = ',a[i],' b[',i,'] = ',b[i]);
end;
for i:= 1 to n*2 do
Begin
WriteLn(' c[',i,'] = ',c[i]);
end;
ReadLn;
end.