Урок 13.1. Задача 16.

Урок 13.1. Задача 16.

Модифицируйте решение предыдущей задачи. так чтобы пользователь вводил второе число M, которое отвечало бы за длину возрастающего фрагмента, например для M=4:
8 10 12 14 3 16 18 20 22 3....3....и т.д.
Заметьте. что в предыдущей задаче M было зафиксировано =2:
8 10 3 14 16 3....3....и т.д.

var N, M, a, b, i : integer;

begin
  write('Enter an integer 7+ : ');
  readln(N);
  write('Enter an integer : ');
  readln(M);
  a := 8;
  b := 8;
  if N < 8 then
    writeln('Error')
  else
    while (a < N) do
    begin
      a := a + 3;
      for i := 1 to M do
      begin
        if (b <= N) then
          write(b, ' ');
        b := b + 2;
      end;
      if b <= N then
        write(3, ' ');
    end;
  readln();
end.