var a:integer;
begin
readln(a);
if a mod 3=0 then writeln('Число делится на 3')
else writeln('Число не делится на 3');
end.
Пример:
25
Число не делится на 3
