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

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

REM program
CLS
x = -1367

a = x \ 1000
b = (x MOD 1000 - x MOD 100) / 100
c = (x MOD 100 - x MOD 10) / 10
d = x MOD 10

PRINT a * b * c * d
END