sum of digits(sub)

DECLARE SUB SUM (N)

CLS

INPUT "ENTER ANY NO";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