Даны две последовательности а1 lt; а2 ...lt; аn и b1 lt;

uses crt;
const nmax=50;
var a,b:array[1..2*nmax] of integer;
nbsp;nbsp;nbsp;nbsp;n,m,i,j,k:integer;
begin
clrscr;
repeat
write(Размер массива А до ,nmax, n=);
readln(n);
until n in [1..nmax];
for i:=1 to n do
nbsp;begin
nbsp;nbsp;a[i]:=3*i;по возрастанию, можно по другому
nbsp;nbsp;write(a[i], );
nbsp;end;
writeln;
writeln;
repeat
write(Размер массива B до ,nmax, n=);
readln(m);
until m in [1..nmax];
for i:=1 to m do
nbsp;begin
nbsp;nbsp;b[i]:=2*i;
nbsp;nbsp;write(b[i], );
nbsp;end;
writeln;
writeln;
вставляем массив b в массив а
for i:=1 to m do
if b[i]gt;=a[n] thenесли больше заключительного
nbsp;begin
nbsp;nbsp;n:=n+1;
nbsp;nbsp;a[n]:=b[i];добавляем в конец
nbsp;end
elseпо другому
nbsp;begin
nbsp;nbsp;for j:=1 to n doищем место для вставки
nbsp;nbsp;nbsp;if a[j]gt;=b[i] then
nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;n:=n+1;увеличим размер
nbsp;nbsp;nbsp;nbsp;nbsp;for k:=n downto j+1 doсдвинем конец массива на право на 1
nbsp;nbsp;nbsp;nbsp;nbsp;a[k]:=a[k-1];
nbsp;nbsp;nbsp;nbsp;nbsp;a[j]:=b[i];на освободившееся место вставляем
nbsp;nbsp;nbsp;nbsp;nbsp;break;выходим из цикла поиска
nbsp;nbsp;nbsp;nbsp;end;
nbsp;end;
writeln(Итог:);
for i:=1 to n do
write(a[i], );
readln
end.