QBasic Programming

To check whether the given number is palindrome or not

CLS 
INPUT "Enter any number";N
A=N
S=0
WHILE N < > 0
R= N MOD 10
S=S*10+R
N= N\10
WEND
IF A =S THEN
PRINT "The given number is palindrome"
ELSE 
PRINT "The given number is not palindrome""
END IF 
END