Дано целое число n. определите, есть ли в числе цифра, равная введённой цифре к. (программа не паскаль,а бейсик; нужно блок схему ,или хоть просто как решение записать)

Microsoft qBASIC:
DIM n AS LONG
CLS
INPUT "Введите число ", n
INPUT "Введите цифру для поиска ", d
flag = 0
DO WHILE n > 0 AND flag = 0
   IF d = n MOD 10 THEN
      PRINT "Цифра в числе есть"
      flag = 1
   ELSE
      n = n / 10
   END IF
LOOP
IF flag = 0 THEN PRINT "Цифры в числе нет"
END

Тестовое решение:
Введите число 5374012
Введите цифру для поиска 1
Цифра в числе есть