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

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

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

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

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

var N, c, i: integer;
begin
 writeln('Введите целое число N > 7:');
 readln(N);
 if N > 7 then
  begin
   i := 8;
   while i <= N do
    begin
     if c < 2 then
      begin
       write(i, ' ');
       i += 2;
       c += 1;
      end
     else
      begin
       write('3 ');
       c := 0;
      end;
    end;
  end
 else writeln('Ошибка');
 readln();
end.