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

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

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

var b,i,s,n: integer;
begin
  writeln('Введите число');
  readln(b);
    s:=0;
    n:=1;
    for i:=1 to b do
      begin
         write(i,' ');
         s:=s+1;
           if (s=n) then
             begin
               writeln();
               n:=n+1;
               s:=0;
             end;
        end;
  readln();
end.