Задание 5 Урок 15. Одномерные массивы

Урок 15. Одномерные массивы

{15 - 5 У вас есть массив чисел от 1 до 17, выведете его на экран, обходя в цикле таким образом:
1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17 }

Const N = 33;
var
  a: array [1..N] of integer;
  i, symbol, lenght: integer;

begin
  lenght:=1;
  for i:=1 to N do
    begin
      a[i]:=i;
      write(a[i],' ');
      symbol:=symbol+1;
      if (symbol=lenght) then
        begin
          writeln();
          lenght:=lenght+1;
          symbol:=0;
        end;
    end;
  writeln('...');
  readln();
end.

//1
//2 3
//4 5 6
//7 8 9 10
//11 12 13 14 15
//16 17 18 19 20 21
//22 23 24 25 26 27 28
//29 30 31 32 33 ...