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

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

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

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

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

var i, c1, c2: integer;
a: array [1..17] of integer;
begin
  c1 := 1;
  c2 := 1;
  for i := 1 to 17 do
     a[i] := i;
  for i := 1 to 17 do
     if c1 > c2 then
      begin
       write(a[i], ' ');
       c2 += 1;
      end
     else
      begin
       writeln(a[i]);
       c1 += 1;
       c2 := 1;
      end;
  readln();
end.