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

var a:integer;beginwriteln('Введите число');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.