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

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

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

var i,i1,n,m : integer;
label m1;
begin
  i :=8;
  i1 := 1;
  m1 :
  write('Введите целое положительное число N и M ');
  write('через пробел и нажмите ENTER: ');
  readln(n,m);
  m := m + 1;// для отображения чисел количесвом М
  if ((n or m) <= 0) then
  begin
    writeln('ОШИБКА!!! число отрицательное');
    goto m1;
  end
  else
    repeat
      for i1 := 1 to m do
        if (i1 < m) then
        begin
          i := i+2;
          write(i, ' ');
        end
        else
          write(3, ' ');
    until (i > n);
  readln();
end.