program bbb;
uses crt;
var
i,n:integer;
s:real;
BEGIN
clrscr;
writeln('vv chislo') ;
readln(n);
if n mod 3=0 then writeln('Делится на 3') else writeln('Не делится на 3');
readln;
END.