Заполнить массив из 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