Вычисления произведения цифр заданного целого числа — Basic(Бейсик)

INPUT "vvedite chislo ",a
p=1
DO
p=p*(a MOD 10)
a=a\10
LOOP UNTIL a=0
PRINT"proizvedenie cifr=";p