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

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

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

program  u13z16;
var i,a,m,n: integer;

begin
  writeln('vvedite chislo n');
  readln(n);

  begin
  writeln('vvedite chislo m');
  readln(m);

  end;
  a:=8;
  while (a <=n) do
  begin

    for i:=1 to m do
     begin
      if (a <=n)then
        write(a,' ');
      a:=a + 2;
     end;
     if (a<=n)then
      write('3',' ');

  end;

  readln();

end

.