Дано 2-ное число выясните является ли оно четным и оканчивается июли она на 6

Если я правильно понял,то ответ вот:var a:integer;beginreadln(a);if (a mod 2 = 0) and (a mod 10 = 6) then writeln(a,' чётное и оканчивается на 6');end.