Display sum of digit

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