Четность это же 0 в младшем разряде числа, не? Тогда проверить
if x and 1 = 0 then <число четное>
Всяко быстрее делений