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

Задача 16 Урок 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....и т.д.

var n, d, m, i : integer;
begin
  d := 8;
  writeln('vvedite chislo');
  readln(n);
  writeln('vvedite dliny fragmenta');
  readln(m);
  if n < 8 then
     writeln('oshibka')
  else
     repeat
       for i := 1 to m do
          begin
            if d > n then
              break;
            write(d,' ');
            d := d + 2;
          end;
     write(3,' ');
     until d > n ;
  readln();
end.