ввести двузначное число определить есть ли в его составе цифры кратные 6

var a: integer;

begin

write('Введите двузначное число: ');  

readln(a);

if (a mod 10 = 6) or (a div 10 = 6) then writeln('В его составе есть цифры кратные 6')

else writeln('В его составе нет цифр кратных 6')

end.