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

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

Пользователь передает целое положительное число N
, выведете на экран последовательность от 1
до N
, так чтобы ширина "ёлочки" росла волнами. Например, для N=49
получим:
123--сначала до двух456789--потом до трёх101112--возвращаемся к одному131415161718192021--тут уже четыре2223242526--снова убывает 2728293031323334353637383940414243444546474849

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

begin
  writeln('vvedite chislo n');
  readln(n);
  m:=2;
  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
      begin
        max:=true;
        m:=m + 1;
      end;

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