На Паскале:
var x: integer;
begin
writeln('Введите число: ');
readln(x);
if x mod 9=0 then
writeln('Число кратно 9')
else
writeln('Число не кратно 9');
end.
