program in qbasic to check palindrome number

CLS
DIM N AS INTEGER, NUM AS INTEGER, D AS INTEGER, R AS INTEGER
R = 0

INPUT "ENTER A NUMBER"; N
NUM = N

WHILE N > 0
    D = N MOD 10
    R = R * 10 + D
    N = N \ 10
WEND

IF NUM = R THEN
    PRINT "ENTERED NUMBER IS PALINDROME NUMBER"
ELSE
    PRINT "ENTERED NUMBER IS NOT PALINDROME NUMBER"
END IF

END