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

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

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

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

var n,a,i:integer;

function stroka(b,j:integer):integer;
var k:integer;
begin
  for k:=1 to j do
    if (b<=n) then
      begin
        write(b,' ');
        b:=b+1;
      end;
  writeln();
  result:=b;
end;

begin
  i:=1;
  a:=1;
  writeln('Vvedite cislo: ');
  readln(n);
  while(a<=n) do
  begin
    a:=stroka(a,i);
    i:=i+1;
  end;

end.  

Консоль:

Vvedite cislo: 
32

1 
2 3 
4 5 6 
7 8 9 10 
11 12 13 14 15 
16 17 18 19 20 21 
22 23 24 25 26 27 28 
29 30 31 32