Дано три будь-яких числа. Знайти обуток тих, що кратні 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.