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

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