Составить алгоритм и программу вычисления произведения цифр заданного целого четырехзначного числа , где число 1367 — QBasic(Бейсик)

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

Тестирование выполнено в программе QB64 ( Скачать )