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

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

Пользователь вводит целое положительное число N, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N, сформированной следующим образом:
8 10 3 12 14 3 16 18 3 20 22 3 и т.д.
-- то есть всё начинается с восьмерки, затем число увеличивается на 2, затем выводит тройка и ещё пара увеличенных на 2 чисел и т.д.

var
  a, i, j: integer;
begin
  a:= 46;//пользовательское число
  j:= 0;
  if a > 0 then
     begin
       i:= 8;
       while i <= a do
          if j = 2 then
             begin
                write (3, ' ');
                j:= 0;
             end
          else
             begin
               write (i, ' ');
               i:= i + 2;
               j:= j + 1;
             end;
     end
  else
  write('Oschibka. Vvedite pologitelnoe chislo');
  readln();
end.