QBaic Programming

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