Wap to display reserve digits

CLS
INPUT "Enter any digit"; n
WHILE n <> 0
r = n MOD 10
s = s * 10 + r
n = n \ 10
WEND
PRINT "Reversed digits is "; s
END