Задача 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[0..16] of integer;
 var
   arr: myArr;
   i, j, count: integer;
begin
  //arr[1]:= 1;
  j:= 0;
  count:= 1;
  for i:= 0 to 16 do
     arr[i]:= i + 1;
  for i:= low(arr) to high(arr) do
     begin
       write(arr[i], ' ');
       j:= j + 1;
       if (j = count) then
          begin
            writeln();
            count:= count + 1;
            j:= 0;
          end;
     end;
  readln();
end.