Заполнить массив из 15 элементов случайным образом в виде неубывающей последовательности.

var mas: array[1..15] of integer; i, v, q: integer;begin  randomize;  q:=100;  mas[1]:=random(q);  for i:=2 to 15 do begin     repeat       v:=random(q);       if v<nas[i-1] then Inc(q, 20);     until v>mas[i-1];  end;  mas[i]:=v;   writeln('полученный массив');  for i:=1 to 14 do     write(mas[i],', ');  write(mas[15]);end.полученный массив15, 18, 19, 25, 48, 49, 51, 60, 65, 90, 91, 98, 125, 140, 150