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

Задача 17 Урок 13.1:

Модифицируйте решение предыдущей задачи. так чтобы пользователь вводил второе число M , которое отвечало бы за длину возрастающего фрагмента, например для M=4:8101214четыре числа316182022четыре числа3....3....и т.д.$\underset{\text{четыре числа}}{\underbrace{8101214}}3\underset{\text{четыре числа}}{\underbrace{16182022}}3....3....\text{и т.д.}$
Заметьте. что в предыдущей задаче M было зафиксировано =2:
810два числа31416два числа3....3....и т.д.$\underset{\text{два числа}}{\underbrace{810}}3\underset{\text{два числа}}{\underbrace{1416}}3....3....\text{и т.д.}$

var N, M, c, i: integer;
begin
 writeln('Введите целое число N > 7:');
 readln(N);
 writeln('Введите целое число M:');
 readln(M);
 if N > 7 then
  begin
   i := 8;
   while i <= N do
    begin
     if c < M then
      begin
       write(i, ' ');
       i += 2;
       c += 1;
      end
     else
      begin
       write('3 ');
       c := 0;
      end;
    end;
  end
 else writeln('Ошибка');
 readln();
end.