QBASIC PROGRAM TO FIND SUM OF DIGIT USING SUB.

DECLARE SUB SIM(N)
CLS
INPUT "ENTER ANY NUMBER";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