Задача 19 Урок 13

Задача 19 Урок 13

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

program lesson13_19_1;
var
    a, b, i, j: integer;
begin
    writeln('enter number a');
    readln(a);
    i := 1;
    b := 1;
    while i <= a do
    begin
        for j := 1 to b do
        begin
            if i > a then
                break;
            write(i, ' ');
            i := i + 1;
		end;
        writeln();
		b := b + 1;
	end;
	readln();
end.

program lesson13_19_2;
var
    a, b, k, i: integer;
begin
    writeln('enter number a');
    readln(a);
    k := 1;
    b := 1;
    for i := 1 to a do
    begin
        write(i, ' ');
        if k = b then
        begin
            writeln();
            k := 1;
            b := b + 1;
        end
        else
            k := k + 1;
	end;
	readln();
end.