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

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

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

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

type ar = array[1..17] of integer;
var i, a, b : integer;
    Arr : ar;
begin
  a := 0;
  b := 1; // длина строки
  for i:=1 to 17 do // инициализация
    Arr[i] := i;

  for i := low(Arr) to high(Arr) do
  begin
     write(Arr[i], ' ');
     a := a + 1;
     if a = b then
     begin
       writeln();
       a := 0;
       b := b + 1;
     end;
   end;
  readln();
end.