Palindrome

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"
ENDIF 
END