Дано натурольное четырехзначное число. определите, будет ли произведение цифр этого числа кратно трем?

Var a:integer;
begin
writeln('Введите число');
readln(a);
if (((a mod 10)* (a div 1000)*(a div 100 mod 10)* (a mod 100 div 10)) mod 3 =0) then write('произведение цифр этого числа кратно трём')
else write('произведение чисел не кратно трём')
end.