Задание на паскале
Дан численный массив M, элементы которых упорядочены по возрастанию и число a. Не нарушая порядок возрастания элементов включить число a в массив M.

const n=11;

var b: array[1..n] of integer;

i,j,c,a: integer;

begin

randomize;

for i: =1 to n-1 do begin

b[i]: =random(50);

write(b[i]: 3);

end;

writeln;

for i: =1 to n-2 do

for j: =n-2 downto i do

if b[j]> b[j+1] then begin

c: =b[j];

b[j]: =b[j+1];

b[j+1]: =c;

end;

writeln;

writeln('введите число а');

read(a);

writeln('a= ',a);

b[n]: =a;

for i: =1 to n do

write(b[i]: 3);

end.