Решение 2 Задача 18 Урок 13

Урок 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, m, c, d : integer;

begin
  c := 1; 
  writeln('Vvedite celoe polozhitelnoe chislo');
  readln(n);
  m := 0; 
  d := 0;
  if n > 0 then
  begin
    while c <= n do
    begin
      for d := 1 to m do  
      begin
        if c <= n then
          write(c, ' ');
        c := c + 1;
      end;
      m := m + 1;
      writeln();
    end; 
  end
  else
    writeln ('Error!');
end.

КОНСОЛЬ

Vvedite celoe polozhitelnoe chislo
23
1 
2 3 
4 5 6 
7 8 9 10 
11 12 13 14 15 
16 17 18 19 20 21 
22 23