Дано три будь-яких числа. знайти обуток тих, що кратні 3. програма паскаль

Program ima;
uaes crt;
var a,s,d:integer;
readln (a);
readln(s);
readln(d);
if (a mod 3)and(s mod 3)and(d mod 3)then
readln (a,s,d);
end.