DECLARE SUB SUM( N)
CLS 
INPUT " ENTER ANY DIGIT"; N
CALL SUM ( N)
END

SUB SUM (N)
S = 0
WHILE N< > 0
R = N MOD 10
S = S + R
N = N \10
WEND
PRINT " SUM OF DIGIT ="; S
END SUB