var a: integer; begin writeln('Число'); Readln(a); if a mod 3 = 0 then writeln('Да') else writeln('нет') end.