Задача 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,y,x: integer;
begin
x:=1;
y:=1;
for i:= low(a) to high(a) do
begin
a[i]:=i;
write(a[i],' ');
if(y=x) then
begin
  writeln();
  y:=y+1;
  x:=1;
end
else
  x:=x+1;
end;
readln();
end.