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

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"