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

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.