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

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

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

8 10 3 12 14 3 16 18 3 20

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

var a, b, N, i : integer;

begin
  write('Enter an integer 7+ : ');
  readln(N);
  a := 8;
  b := 0;
  if N < 8 then
    writeln('Error')
  else
    for i := a to N do
    begin
      if (i mod 2 = 0) then
      begin
        b := b + 1;
        write(i, ' ');
      end
      else
        if (b = 2) then
        begin
          b := 0;
          write(3,' ');
        end;
    end;
  readln();
end.