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

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

Пользователь вводит целое положительное число N большее или равное 8, если оно не соответствует этим критериям (то есть не является положительным и большим или равным 8), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N.
Например, для N=20 получим результат:

8 10 3 12 14 3 16 18 3 20

-- то есть всё начинается с восьмерки, затем число увеличивается на 2, затем выводится тройка и ещё пара увеличенных на 2 чисел и т.д. пока не дойдем до N.

var n, m, i : integer;
begin
  m := 8;
  writeln('vvedite chislo');
  readln(n);
  if n < 8 then
     writeln('oshibka')
  else
     repeat
       for i := 1 to 2 do
          begin
            if m > n then
              break;
            write(m,' ');
            m := m + 2;
          end;
     write(3,' ');
     until m > n ;
  readln();
end.