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

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.