Задача 18 урок 13.1

Задача 18 урок 13.1

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой".

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