Помогите решить задачу. Дано трёхзначное число. Проверить делится ли данное число на три и на девять

if n mod 3 = 0 then writeln('geJIutc9I') else writeln('HE geJIuTc9I');