Дано натуральное число.Определить номер цифры,равной сумме цифр числа- QBasic(Бейсик)

INPUT "vvedite chislo ", n
DO WHILE n > 9
    IF n MOD 10 <> 0 THEN f = 1
    n = n \ 10
LOOP
IF f = 0 THEN PRINT "1 cifra=summe cifr chisla" ELSE PRINT "net takoj cifry"

INPUT "vvedite chislo ", n
DO
    a = n MOD 10
    s = s + a
    n = n \ 10
LOOP UNTIL n = 0
IF s = a THEN PRINT "1 cifra=summe cifr chisla" ELSE PRINT "net takoj cifry"