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

Урок 13.1

(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
    for c := 1 to n do
    begin
        write(c, ' ');
        d := d + 1;
        if d > m then
        begin
          writeln();
          m := m + 1;
          d := 0;
        end;
     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