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 of digits=";S
END