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

program lexa;

var a:integer;

begin

read(a);

If (a mod 6 = 0)and(a mod 10 = 4)

then write('явлеятеся')

Else write('не явлеятеся');

end.