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

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

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