Помогите с информатикой

Задача: даны три числа, определить есть ли среди них кратные трём и сколько их. В ПАСКАЛЕ
Срочно. Пожалуйста даю 40 баллов