Тема: помогите пожалуйста с задачей

задача: ввести целое число и найти сколько в нем цифр 9
если можно,с блок-схемой

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

#Lang "FB" ' режим FreeBASIC-совместимости
Dim As Integer XI, LXS, IXS, S9
Dim As String XS, X
XI = 849219 ' число в виде целого
XS = Str(XI) ' число в виде строки
LXS = Len(XS)' количество символов в числе
S9 = 0 ' пока символов "9" не обнаружено
For IXS = 1 To LXS ' перебор всех символов
X = MID$(XS, IXS, 1) ' выбрать один символ
If X = "9" Then S9 = S9 + 1 ' если "9" увеличить счетчик
Next IXS ' номер следующего символа
Print S9 ' печать количества символов "9"
Sleep

Пожалуй, и блок-схема не нужна...