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

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

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

var i, j, M, N, P, k: integer;
begin
  readln(P);
  readln(N);
  i:=1;
  j:=1;
  M:=1;
  k:=0;
  for i:=1 to N do
    begin
      write(i,' ');
      if (j=M) then
        begin
          writeln();
          j:=0;
          if (M=P) then
            k:=0;
          if (M=1) then
            k:=1;
          if (k=1) then
            M:=M+1
          else
            M:=M-1;
        end;
      j:=j+1;
    end;
  readln();
end.