Задание 17 Урок 13.1

Задание 17 Урок 13.1

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

var i,j,m,n: integer;
begin
 writeln('vvedite chislo');
 readln(n);
  writeln('vvedite chislo m');
 readln(m);
 if (n>=0) then begin
   i:=8;
   while(i<=n) do begin
     if(j=m) then begin
       write(' ', j, '  ');
       j:=-1;
     end
     else begin
       write(i, ' ');
       end;
   j:=j+1;
   i:=i+2;
end;
 end else
 writeln('oshibka!');
 readln();
end.