Определить сколько раз в нем повторяется последнее число — QBasic(Бейсик)

INPUT a
b = a MOD 10
DO
    IF b = a MOD 10 THEN k = k + 1
    a = a \ 10
LOOP UNTIL a = 0
PRINT k

INPUT a
b = a MOD 10
WHILE a <> 0
    IF b = a MOD 10 THEN k = k + 1
    a = a \ 10
WEND
PRINT "poslednyaya cifra povtoryaetsya "; k; "v raz"