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

http://fkn.ktu10.com/?q=node/8697

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

program task17_lesson13_1;
var n, m, i, k, j : integer;
begin
  j:=8;         // первое число
  k:=0;         // сюда сохраняем разницу между первым и N-ым
  readln(n);     //сколько чисел
  readln(m);     // скольео чисел между "3"-ми
  if n<0 then
    writeLn ('error')
  else
    begin
      for i:=1 to n do
        begin
          write(j+k,' ');
          if ((i mod m) = 0) then
            write(3, ' ');
          k := k + 2;
        end;
    end;
   readLn();
end.