Задача 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 zadacha4;
var n, m, j: integer;

procedure stroka(b,q:integer; var t:integer);    //передаем общее колличество, колл-во в строке и значения
var i: integer;
begin
  for i:=1 to b do
  begin
    if t<=q then  //проверяем не закончились ли значения
    write(t,' ');
    t:=t+1;
  end;
end;

begin
  writeln('Vvedite N');
  readln(n);
  m:=1;
  j:=1;
    repeat
      stroka(m,n,j);
      writeln();
      m:=m+1;      //счиатем строчки
    until n <= j;
  readln();
end.