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

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

Пользователь передает целые положительные число N и M, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" увеличивалась до M чисел, то уменьшалась до 1. Например, для M=3 и N=19 получим:
1
23
456--максимум три числа
78
9
1011
121314--снова три числа
1516
17
1819.....

var N, M, a, b, i : integer;
    fl : boolean;
begin
  a := 0;
  b := 1;
  fl := true;
  write('Enter an integer : ');
  readln(N);
  readln(M);
  for i := 1 to N do
  begin
    write(i , ' ');
    a := a + 1;
    if a = b then
    begin
      a := 0;
      writeln();
      if fl then
        b := b + 1
      else
        b := b - 1;
    end;
    if b = m then
      fl := false;
    if b = 1 then
      fl := true;
  end;
  readln();
end.