WAP to find 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 digits ";S

END