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

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

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

var N, M, i, a, b: integer;
flag: boolean;
begin
  a := 1;
  b := 0;
  M := 2;
  writeln('vvedite chislo N');
  readln(N);
  for i:=1 to N do
    begin
      write(i, ' ');
      inc(b);
      if (a=M) AND flag then
        begin
          flag := false;
          inc(M);
        end
      else if (a=1) AND Not flag then
        flag := true;
      if (b=a) then
        begin
          b := 0;
          writeln();
          if flag then
            inc(a)
          else
            dec(a);
        end;
    end;
  readln();
end.