QBASIC

WAP TO DISPLAY 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 "Reserve of digits"; R

END