Reverse of digits

ClS
INPUT " Enter any number ";N
S = 0
WHILE N < > 0
R = N MOD 10
S = S * 10+ R
N = N \ 10
WEND
PRINT " Sum of reverse digits ";S
END