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

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

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

8 10 3 12 14 3 16 18 3 20
-- то есть всё начинается с восьмерки, затем число увеличивается на 2, затем выводится тройка и ещё пара увеличенных на 2 чисел и т.д. пока не дойдем до N
.

var a, b, n: integer;
  p: boolean;
begin
  p := true;
  writeln('введите число N');
  readln(n);

  a := 8;
  while(a <= n) do
  begin
    for b:=1 to 2 do
    begin
      if (a <= n) then
        write(a, ' ')
      else
        p := false;
       a := a + 2 ;
    end;
    if (p) then
      write (3, ' ')
  end;

  readln();
end.