Задача 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 U14Z4;
var n,a,m,b:integer;
function stroka(ch,str,t,x :integer):integer;
begin
  while (t<=str) and (ch<=x) do
    begin
      write(ch,' ');
      ch:=ch+1;
      t:=t+1;
    end;
end;
begin
  writeln('vvedite n');
  readln(n);
  a:=1;
  m:=1;
  b:=1;
  while (a<=n) do
    begin
      a:=stroka(a,m,b,n);
      b:=1;
      m:=m+1;
      writeln();
    end;
  readln();
end.