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

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

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

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

var
   a:array[1..17] of integer;
   i,j,k,l:integer;
begin
  l:=0;
  k:=1;
  for i:=1 to 17 do
    a[i]:=i;
  for j:=1 to 17 do
    begin
      write (a[j],' ');
      l:=l+1;
      if(l=k) then
      begin
        writeln();
        l:=0;
        k:=k+1;
      end;
    end;
end.  

Консоль:

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