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

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

У вас есть массив чисел от 1 до 17, выведете его на экран, обходя в цикле таким образом:
1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17
ПРИМЕЧАНИЕ: эту задачу можно решить, как вложенными циклами, так и вообще одним циклом (что более изящно).

program lesson15_5;
var
    a: array[1..17] of integer;
    i, b, c: integer;
begin
    for i := low(a) to high(a) do
        a[i] := i;
    b := 1;
    c := 1;
    for i := low(a) to high(a) do
    begin
        write(a[i], ' ');
        if b = c then
        begin
            writeln();
            b := 1;
            c := c + 1;
		end
        else
            b := b + 1;
	end;
    readln();
end.