Задача 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 U141Z5;
var n,m,l,i: integer;
procedure vivod(o,d:integer);
var j:integer;
begin
  for j:=o to d do
    write(j,' ');
end;
begin
  writeln('vvedite polozhitelnoe chislo');
  readln(n);
  m:=0;
  i:=1;
  l:=0;
  while (l<=n) do
  begin
    l:=i+m;
    if (l>n) then
      vivod(i,n)
    else
      vivod(i,l);
    writeln();
    m:=m+1;
    i:=l+1;
  end;
  readln();
end.