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

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

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

1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17 18

var n, a, b, c: integer;
begin
  a:=1;
  b:=0;
  c:=1;
  writeln('Vvedite chislo:');
  readln(n);
  if (n > 0) then
  begin
     while (a <= n) do
     begin
        write(a, ' ');
        inc(a);
        inc(b);
        if (b = c) then
        begin
           writeln(' ');
           b:=0;
           inc(c);
        end;
     end;
    end
  else
     writeln('oshibka');
  readln();
end.