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

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

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

var M, N, k, L:integer;
begin
  k := 1;
  M := 8;
  write('vvedi chislo N ');
  readln(N);
  write('vvedi chislo L ');
  readln(L);
  if(N >= 10) then
    begin
      repeat
        write(M,' ');
        M := M + 2;
        if(k = L) then
          begin
            write(3,' ');
            k := 0;
          end;
        k:=k+1;
      until(M > N);
    end
  else
    writeln('ERRROOOR');
readln();
end.