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

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

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

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
            begin
            k:=0;
            P:=P+1;
            end;
          if (M=1) then
            k:=1;
          if (k=1) then
            M:=M+1
          else
            M:=M-1;
        end;
      j:=j+1;
    end;
  readln();
end.