Дано целое число 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 Цифра в числе есть