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

Урок 13.1

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

8 10 3 12 14 3 16 18 3 20 22 3 и т.д.

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

var n, b, c : integer;

begin
  b := 0;
  writeln('Vvedite celoe polozhitelnoe chislo');
  readln(n);
  if n > 0 then
  begin
    for c := 8 to n do
    begin
      b := b + 1;
      if ((c mod 2) = 0) then
      write(c, ' ');
      if ((b mod 2) = 0) then
        write(3, ' ');
    end;
  end
  else
    writeln ('Error!');
end.

КОНСОЛЬ

Vvedite celoe polozhitelnoe chislo
15
8 3 10 3 12 3 14 3