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.