Дано трехзначное число составить программу которая определят кратно ли 3 произведение его цифр ( на языке паскаль)

Var
a, b : integer;
begin
b:=1;
write('a?');
readln(a);
a := abs(a);
while a > 0 do
begin
b := b * a mod 10;
a := a div 10;
end;
if b mod 3 =0 then writeln('да')
else writeln('нет');
end.

Как-то так (фотография)
(работает и с отрицательными числами)