Qbasic programs to reverse the digits

                        # Write a program to reverse the digits 


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