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

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