WAP to find sum of product

CLS

INPUT "Enter any number ";N

P = 1

WHILE N <> 0

R = N MOD 10

S = P * R

N = N \ 10

WEND

PRINT " Product of digits ";P

END