Reverse digit

CLS
INPUT"Enter any number";N
S=0
WHILE N<>0
R=N MOD 10
S=S*10+R
N=N\10
WEND
PRINT"Reverse digit";R
END