пользователь вводит натуральное число. верно ли, что онозаканчивается четной цифрой. delphi

ну так какие проблемы, делаешь
if number mod 2 = 0
then showmessage("Число четное")
else showmessage("Число нечетное");