Определить является ли целое число N четным числом.Использовать оператор mod-остаток от деления
If n mod 2 =0 then Begin End;