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

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

Пользователь передает целые положительные число N и M, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" увеличивалась до M чисел, то уменьшалась до 1. Например, для M=3 и N=19 получим:
1
2 3
4 5 6--максимум три числа
7 8
9
10 11
12 13 14--снова три числа
15 16
17
18 19.....

program Project1;
var m,n,i,j,n_poz:integer;
    cout:boolean;
begin
  j:=0;
  i:=0;
  n_poz:=1;
  cout:=true;
  write('Vvedite N: '); readln(n);
  write('Vvedite M: '); readln(m);
    for j:=1 to n do
    begin
      i:=i+1;
      write(j,' ');
      if(i=n_poz)then
      begin
        writeln();
        i:=0;
        if(cout)then
          n_poz:=n_poz+1
        else
          n_poz:=n_poz-1;
        if(n_poz=m)then
          cout:=false
        else if(n_poz=1)then
          cout:=true;
      end;
    end;
  readln();
end.