program PascalGuru;
 
var A,B,X:array[1..50] of integer;
    n,n2,i:integer;
 
 
Procedure Regulated (N,Z:integer);
Var j,k:integer;
begin
k:=0; j:=N;
While (j>=1) and (k=0) do
if X[j]>Z then begin X[j+1]:=X[j]; j:=j-1 end
	else k:=j;
X[k+1]:=Z;
end;
 
{-------------------------------------------------------------}
 
begin
write ('Vvedite razmer massivov "A" i "B": ');  read (n);
for i:=1 to n do begin write ('A[',i,']='); readln (A[i]); end;
 
for i:=1 to n do begin write ('B[',i,']='); readln (B[i]); end;
 
write ('Vot vvedennyy vami massiv A [uporiadocenyi]: ');
for i:=1 to n do write (A[i],'  ');   writeln;
write ('Vot vvedennyy vami massiv B [uporiadocenyi]: ');
for i:=1 to n do write (B[i],'  ');
 
n2:=n;
for i:=1 to n do X[i]:=A[i];
for i:=1 to n do begin Regulated(n2,B[i]);  inc(n2);end; {вставка}
 
writeln; writeln;
write ('Vot massiv X (A+B): ');
for i:=1 to n2 do write (X[i],'  ');
 
readln;
end.