WAP to reverse 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 " Reverse of digits ";S