Написать программу которая проверяет делится ли на 3 целое двузначное число

Var x:integer;
begin
write('Введите число: ');
readln(x);
if x mod 3=0 then
  writeln('Делится на 3')
  else writeln('Не делится на 3')
end.