Задача 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

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

function str(a, b: integer; var c, d: integer): integer;
begin
  while (c > b) and (d <= a) do
    begin
     write(d, ' ');
     b += 1;
     d += 1;
    end;
end;

var N, c1, c2, i: integer;
begin
write('Введите целое положительное число: ');
 readln(N);
 i := 1;
 c1 := 1;
 c2 := 1;
 while i <= N do
  begin
   c1 += 1;
   str(N, c2, c1, i);
   c2 := 1;
   writeln();
  end;
 readln();
end.