{ Даны две таб. Составить из них 3 таб. упорядоченную по возраст. }

uses crt;
   var a : array [1..10] of longint;
       b : array [1..20] of longint;
       c : array [1..30] of longint;
       n,m,k,l,i,j,min : longint;
    begin
      clrscr;
write('введ.кол.эл.таб.а n=');
readln(n);
write('введ.кол.эл.таб.b m=');
readln(m);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
for i:=1 to m do
begin
write('b[',i,']=');readln(b[i]);
end;
k:=n+m;{кол.эл.таб.с}
(*заносим эл.таб.а в таб.с*)
for i:=1 to n do c[i]:=a[i];
(*заносим эл.таб.в в таб.с*)
for i:=1 to m do c[i+n]:=b[i];
(*упорядочим таб.с[1..k]
 по возраст*)
for i:=1 to k-1 do
begin
l:=i;{номер мин.}min:=c[i];
for j:=i+1 to k do
if c[j] min then
begin
min:=c[j];l:=j;
end;
c[l]:=c[i];
{меняем местами 1-й и мин.эл.}
c[i]:=min;
end;
for i:=1 to k do writeln
('Ответ:c[',i,']=',c[i]);
readln;
end.