Посчитать количество вхождений в данное натуральное число цифры 9

Var
A,i:longint;
begin
Write(Введие число:);
Readln(A);
i:=0;
while A >=9 do
begin
if A mod 10 = 9 then 
inc(i);
A:=A div 10;
end;
WriteLn(i=,i);
Readln;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.