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 give no  is palindrome 

ELSE

PRINT “The give no is not palindrome 

END IF 

END