Задача 5 урок 15

Задача 5 урок 15

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

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

type myArr = array[1..17] of integer;
var
  a: myArr;
  N, i, b, c: integer;
begin
  c := 1; //необходимое кол-во N в строке
  b := 0; //счетчик N в строке
  i := 1; //основной ряд N
   for i:=low(a) to high(a) do
     begin
       if (b <= c) then
          begin
            write(i, ' ');
            b := b + 1;
          end;
        if (b = c)then
          begin
            c := c + 1;
            b := 0;
            writeln();
          end;
     end;

   readln();
end.