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

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

У вас есть массив чисел от 1 до 17, выведете его на экран, обходя в цикле таким образом:
1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17

Var i,e,n,m: integer;
    a: array [1..17] of integer;
Begin
e:=0;
n:=1;
m:=17;
for i:=1 to m do
    a[i]:=i;
for i:=low(a) to high(a) do
begin
     write(a[i],' ');
     e+=1;
     if e=n then
     begin
          writeln();
          e:=0;
          n+=1;
    end;
end;
readln();
end.