Дано натуральное число. верно ли, что оно заканчивается: - нечетной цифрой; - четной цифрой

Var a:integer;
begin
readln(a);
if a mod 10 mod 2 = 0 then writeln ('заканчивается четной цифрой')
else writeln ('заканчивается нечетной цифрой')
end.