Буду очень благодарна.Задачка по информатике.С клавиатуры вводится целое число.Определить,является ли оно кратным 6 и заканчивающимся на 4

Program n_1;

var a: integer;

begin

   read(a);

   if (a mod 10 = 4) and (a mod 6 = 0) then writeln('YES')

   else writeln ('NO');

end.