составьте программу ,которая заполняет массив b[1..15 ] случайными целыми числами в диапозоне от 1 до 20и выводит все тройки элементов , упорядоченные строго по возрастанию.

begin
  var n:=15;
  var a:=ArrRandom(n,1,20); a.Println;
  var i:=0;
  repeat
    for var j:=i+1 to n-2 do begin
      if (a[j]>a[i]) and (a[j+1]>a[j]) then begin
        Println(a[i],a[j],a[j+1]);
        i+=1
        end
      else begin i+=1; break end
      end
  until i>=n-3
end.


2 8 17 11 16 13 15 7 12 9 3 10 15 19 20
2 8 17
3 10 15
10 15 19
15 19 20