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

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

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

program u13_1_z22;
var n,i,m,j,k : integer;
          max : boolean;

begin
  writeln('vvedite chislo n');
  readln(n);
  writeln('vvedite chislo m');// ограничитель
  readln(m);
  k:=1; // длинна строки
  j:=0; // cчётчик
  max:= true;

  for i:=1 to n do
  begin
    write(i,' ');
    j:=j+1;
    if (j = k) then
    begin
      writeln();
      if (j = m) then
        max:=false;

      if (max) then
        k:=k + 1
      else
        k:=k - 1;

      if (k = 1) then
        max:=true;

      j:=0;
    end;
  end;
  readln();
end.