Задача 4 Урок 14.2

Задача 4 Урок 14.2 :

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

var  N: integer;
 
function flag(N: integer): integer;
var k, i, L: integer;
begin
  k := 0; // счетчик символов в строке
  L := 1; // длина строки мах
  for i:=1 to N do
    begin
      if(k = (L-1)) then
        begin
          writeln(i,' ');
          L := L + 1;
          k := 0;
        end
      else
        begin
          write(i,' ');
          k := k + 1;
        end
    end;
end;
begin
  writeln('vvedite chislo');
  readln(N);
  Flag(N);
  readln();
end.

Вывод консоли:

vvedite chislo
30
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