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

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

17. Модифицируйте решение предыдущей задачи. так чтобы пользователь вводил второе число M, которое отвечало бы за длину возрастающего фрагмента

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

program Project17;
var a, b, c, f: integer;
begin
  b:=6;
  c:=1;
  writeln('Vvedite zeloe polozhitelnoe chislo bolshe 8:');
  readln(a);
  writeln('Vvedite zeloe polozhitelnoe chislo dliny otrezka:');
  readln(f);
  if (a > 0) then
  begin
     while (b < a) do
           repeat
              for c:=1 to f do
              begin
                  b:=b+2;
                  if (b > a) then
                     break;
                  write(b, ' ');
              end;
              c:=c+1;
              if (c = 2) then
                 break;
              write (3, ' ');
           until (c > f);
  end
  else
     writeln('Vy vveli otrizatelnoe chislo!');
  readln();
end.