Решение задачи 18 из главы 13.1

Решение задачи 18 из главы 13.1

18. Модифицируйте решение предыдущей задачи, так, чтобы длина возрастающего фрагмента каждый раз увеличивалась на единицу (начиная с двух):

Решение одним циклом без использования делимости нацело.

program Project18;
var a, b, c, f, g: integer;
begin
  b:=8;
  c:=0;
  f:=2;
  writeln('Vvedite zeloe polozhitelnoe chislo bolshe 8:');
  readln(a);
  if (a > 0) then
  begin
     while (b <= a) do
     begin
        c:=c+1;
        if (c = (f+1)) then
        begin
           write(3, ' ');
           c:=0;
           f:=f+1;
        end
        else
        begin
          write(b, ' ');
          b:=b+2;
        end;
     end;
    end
  else
     writeln('Vy vveli otrizatelnoe chislo!');
  readln();
end.