Дано число определить делится оно на три? (На языке программирования)

Program n1; var a: integer; begin readln(a); if a mod 3=0 then writeln('делится') else writeln('не делится'); end.