Ввели число, выясните , делится ли оно нацело на 3?

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