Вот на паскале:
var a:int;
begin
write('input n:');
read(n);
if(n mod 3) = 0 then
writeln('Делится')
else
writeln('Не делится')
end.
