Задача 5 урок 14

Задача 5 урок 14

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

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

ПРИМЕЧАНИЕ: для вывода очередной строки используйте отдельную подпрограмму.

program task_5_lesson_14;
var i, c, n: integer;

procedure elka(max_number, counter: integer; var z: integer);
var i: integer;
  begin
    for i := 1 to counter do
      begin
        if z <= max_number then       // ?????? как избежать проверки каждого числа
          begin
            write(z, ' ');
            z += 1;
          end;
      end;
    writeln();
  end;

begin
  readln(n);
  c := 0;
  i := 1;
  while i <= n do
    begin
      c += 1;
      elka(n, c, i);
      i := i + 1;
    end;
  readln
end.