Задать вопрос на языке 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.

(проверь ее)