Дано целое число. уменьшить его на 12 оно четное

Условие для Pascal
if a mod 2 = 0 then a:=a-12;
Где a - введенное пользователем число