Нужно написать программу! . заданный текст содержит только буквы и цифры. определить, обладает ли он следующим свойством: текст является десятичной записью числа, кратного 9.(паскаль, делфи)

Var str:string;
begin
read(str);
if val(str) mod 9 = 0 then write('является')
else write('не является');
end.