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

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