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 digit=";P
END