Sum of digits

CLS
INPUT “ Enter any number”N
S = o
WHILE N<>0
R = N MOD 10
S = S+ R
N = N\ 10
WEND
PRINT “Sum of digits=“;S
END