Задача 20 урок 13.1

Задача 20 урок 13.1

Пользователь передает целые положительные число N и M, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" увеличивалась до M чисел, то уменьшалась до 1.

var i,a,b,n,m:integer;
flag: boolean; //флаг, если включен - уменьшаем количество символов, если нет - увеличиваем
begin
readln(n); //введенное число
readln(m); //ограничитель
a:=0; //счетчик строк
b:=1; //счетчик символов
    for i:=1 to n do
    begin
        write(i,' ');
        a:=a+1;
        if b=1 then flag:=false
        else if b=m then flag:=true;
        
        if a=b then
        begin
            writeln();
            a:=0;
            if (flag) then b:=b-1
            else b:=b+1;
        end;
    end;
end.