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

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