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

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

Модифицируйте решение предыдущей задачи, так, чтобы длина возрастающего фрагмента каждый раз увеличивалась на единицу (начиная с двух):
810два числа3101214три числа316182022четыре числа3....3....и т.д.

var i,a,b,c,d: integer;
begin
  b:=1;
  c:=1;
  i:=1;
  writeln('vvedite 4islo - ');
  readln(a);
  if (a > 0) then
  begin
     d:=i;
     while (b <= a) do
           repeat
              i:=d;
              for c := 1 to i do
              begin
                  b := b + 2;
                  if (b > a) then
                     break;
                  write(b, ' ');
              end;
              c := c + 1;
              if (c = 2) then
                 break;
              write (3, ' ');
              if (d = i) then
                 d:=d+1;
              until (c > i);
    end
  else
     writeln('poka!');
  readln();
end.