Q-basic program to find the product of digits.

CLS
INPUT"ENTER ANY UMBER";N
P=1
WHILE N <> 0
R = N MOD 10
P = P * R
N = N\10
WEND
PRINT"PRODUCT OF DIGITS =";P
END