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

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