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