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

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

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

var N, M, i, st, sm: integer;
  flag: boolean;
begin
  writeln('vedite chislo N');
  readln(N);
  writeln('vedite chislo M');
  readln(M);
  st:= 0;
  sm:= 1;
  writeln();
  for i:= 1 to N do
  begin
    write(i,' ');
    inc(st);
    if sm = 1 then
       flag := true
    else if sm = M then
       flag := false;
    if st = sm then
       begin
         writeln();
          st:= 0;
          if flag then
             inc(sm)
          else
             dec(sm)
       end;
  end;
  readln();
end.