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

Задача 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, L, k : integer;
begin
  k := 0; // счетчик символов в строке
  L := 1; // длина строки мах
  for i := 1 to 17 do
    begin
      a[i] := i;
      if(k = (L-1)) then
        begin
          writeln(a[i],' ');
          L := L + 1;
          k := 0;
        end
      else
        begin
          write(a[i],' ');
          k := k + 1;
        end
    end;
  readln();
end.