Дано число. определить делиться ли оно на 9

Program hgfhj;

var
  x: integer;

begin
  write('Введите число: ');
  readln(x);
  if x mod 9 = 0
    then writeln('Число ', x, ' делится на 9')
  else writeln('Число ', x, ' не делится на 9');
 
end.