WAP to check weather 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

IF A = S THEN

PRINT " The given number is palindrome"

ELSE

PRINT " The given number is not palindrome "

END IF

END