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

Question

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

Answer 1

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