Составить программу проверяющую что введённое число делится без остатка на 3 ( Паскаль)

Program z1; Var a: integer; Begin writeln('Введите число:'); readln(a);  if (a mod 3)=0 then  writeln('Число кратно 3.') else writeln('Число не кратно 3.'); end.