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

http://fkn.ktu10.com/?q=node/8697
Пользователь вводит целое положительное число N, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N, сформированной следующим образом: 8 10 3 12 14 3 16 18 3 20 22 3 и т.д.

var m, i, n: integer;
begin
writeln ('введи число ');
readln (m);
i:=8;
n:=3;
while i<=m do begin
write (i,' ');
i:=i+2;
if ((i mod 2)=0) then write (i,' ',n,' ');
i:=i+2;
end;
end.