PROGRAM M1; uses crt; const size = 10; type arrType = array[1 .. size] of integer; buffer = array[1 .. 2*size] of integer; procedure merge(var a: buffer; b, c: arrType;n_b, n_c: integer); var p, p_b, p_c: integer; begin p_b := 1; p_c := 1; p := 1; while (p_b <= n_b) and (p_c <= n_c) do begin if b[p_b] < c[p_c] then begin a[p] := b[p_b]; inc(p); inc(p_b); end else begin a[p] := c[p_c]; inc(p); inc(p_c); end; end; while p_b <= n_b do begin a[p] := b[p_b]; inc(p); inc(p_b); end; while p_c <= n_c do begin a[p] := c[p_c]; inc(p); inc(p_c); end; end; var a: arrType; b: arrType; c: buffer; i,j,k,na,nb: integer; begin clrscr; write('Количество эл 1 массива '); readLn(na); for i:=1 to na do read(a[i]); write('Количество эл 2 массива '); readLn(nb); for j:=1 to nb do read(b[j]); merge(c, a, b,na,nb); for k := 1 to (na+nb) do write(c[k]:3); writeln; readkey; end.