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

Урок 14

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

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

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

var a, //текущее ограничение строки
    b, //число введенное пользователем
    c: integer; //число напечатанное последним в прошлый раз

procedure p1(a1, //текущее ограничение строки
  b1: integer; //число введенное пользователем
  var c1: integer); //число напечатанное последним в прошлый раз
  var i1: integer; //счетчик цикла
begin
 for i1 := 1 to a1 do
 begin
  if c1 <= b1 then
    write(c1, ' ');
  c1 := c1 + 1;
 end;
 writeln();
end;

begin
  a := 0;
  c := 1;
  writeln('Vvedite chislo');
  readln(b);
  while c <= b do
  begin
    a := a + 1;
    p1(a, b, c);
  end;
  readln();
end.

КОНСОЛЬ

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