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

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

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

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

program project1;
var numArr: array[1..17] of integer;
i,j,n: integer;
begin
  j:=1;
  n:=1;
  for i:=1 to 17 do
    numArr[i]:=i;
  for i:=1 to 17 do
  begin
    write(numArr[i],' ');
    if (j=n) then
    begin
      writeln();
     j:=0;
     n:=n+1;
    end;
    j:=j+1;
   end;
   readln();
end.