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

http://fkn.ktu10.com/?q=node/8697

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

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

program task16_lesson13_1;
var n, i, k ,j : integer;
Begin
  j := 8;  //первый
  k := 0;   //прирост следующего по отношению к первому
  readln(n);
  if n < 0 then
    writeLn ('error')
  else
    begin
      for i:=1 to n do
        begin
          write(j + k,' ');
          if ((i mod 2) = 0) then //каждые 2 числа потом "3"
            write(3, ' ');
          k := k + 2;
        end;
    end;
   readLn();
end.