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 “Products of digits =“;p
END