QBasic Progarmming

To display product of digits

CLS
INPUT "Enter any number ";N
P=1
WHILE N< >0
R= N MOD 10
P=P*R
N= N\10
WEND
PRINT "Product of digits";P
END