Задача 22. Урок 13.1

Задача 22. Урок 13.1

Пользователь передает целые положительные число N и M, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" увеличивалась до M чисел, то уменьшалась до 1.
Например, для M=3 и N=19 получим:
1
2 3
4 5 6--максимум три числа
7 8
9
10 11
12 131 4--снова три числа
15 16
17
18 19.....

var n,m,i,c,l:integer;
begin
  l:=1;//длинна очередной строки
  c:=0;//количество символов очередной строке
  i:=1;//порядковый номер выводимых в строке символов
  writeln('Vvedite obschee kolichestvo simvolov n- ');
  readln(n);//общее количество символов
  writeln('Vvedite max dlinny stroki m- ');
  readln(m);//максимально допустимое количество символов в строке

  for i:=1 to n do
  begin
    if (l<=m) then
    begin
      write(i,' ');
      c:=c+1;
      if l=c then
      begin
        writeln();
        l:=l+1;
        c:=0;
      end;
    end;
   end;
  readln();
end.             

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

Vvedite chislo n-
19
Vvedite chislo m-
3
1
2 3
4 5 6