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

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

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

program U131Z17;
var n,s,m,k: integer;
begin
  writeln('vvedite m');
  readln(m);
  writeln('vvedite polozhitelnoe chislo');
  readln(n);
  if n<0 then
    writeln('oshibka')
  else
  begin
    s:=0;
    k:=8;
    while k<=n do
    begin
      write(k,' ');
      k:=k+2;
      s:=s+1;
      if (s=m) then
        begin
        write('3 ');
        s:=0;
        end;
    end;
  end;
  readln();
end.