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

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

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

8 10 12 14  3  16 18 20 22  3....3....и т.д.

Заметьте. что в предыдущей задаче M было зафиксировано =2:

8 10 3  14 16  3....3....и т.д.

program task17;
var n,a,i,m: integer;
begin
  a:=8;
  i:=0;
  writeln('Vvedite N bolwe ili ravno 8 u M');
  readln(n);
  readln(m);
  if (n>=8) then
  begin
    while (a<=n) do
    begin
      write (a,' ');
      a:=a+2;
      i:=i+1;
      if (i=M) then
        begin
        write (3,' ');
        i:=0;
        end
    end;
  end
  else
  writeln('owibka');
  readln();
end.