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.
Потому что это классическая задача о трех домах и трех колодцах, она не имеет решения, один (пусть последний) путь обязательно невозможно построить не рересекая другой.