Задача 6 Урок 15

Задача 6 Урок 15:

У вас есть массив чисел от 1 до 17, выведете его на экран, обходя в цикле таким образом:

1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17

ПРИМЕЧАНИЕ: эту задачу можно решить, как вложенными циклами, так и вообще одним циклом (что более изящно).

program u15z6;
var a:array [1..17] of integer;
var i,b,c:integer;
begin
  c:=1;  //максимальное кол-во чисел в строке
  for i:=low(a) to high(a) do
  begin
    write(i,' ');
    b:=b+1; //сколько выведено чисел
    if (b=c) then
    begin
      writeln();
      c:=c+1;
      b:=0;
    end;
  end;
  readln();
end.