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

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

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

var
  a, m, i, j: integer;
begin
  a:= 86;//пользовательское число
  j:= 0;
  m:= 5;
  if a > 0 then
     begin
       i:= 8;
       while i <= a do
          if j = m then
             begin
                write (3, ' ');
                j:= 0;
             end
          else
             begin
               write (i, ' ');
               i:= i + 2;
               j:= j + 1;
             end;
     end
  else
  write('Oschibka. Vvedite pologitelnoe chislo');
  readln();
end.