sum of digits

CLS
INPUT"Enter any number";N
S = 0
WHILE N< > 0
R = N MOD 10
S = S + R
N = N/ 10
WEND
PRINT"Sum of digits=";S
END