Задать вопрос на языке pascal: в записи каких трёхзначных чисел присутствует цифра 9?

Program n;
var a,b,c,d:integer;
begin
writeln('Введите трехзначное число');
readln(d);
a:=dmod10;
d:=ddiv10;
b:=dmod10;
c:=ddiv10;
if adiv9=1 then
writeln('da');
if bdiv9=1
then writeln('da');
if cdiv9=1 then writeln('da') else writeln('no');
end.
(проверь ее)