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

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