CLS INPUT "Enter a number"; N A=N WHILE N<>0 R= N MOD 10 P=P*10+R N=N\10 WEND IF P=A THEN PRINT "It is palindrome" ELSE PRINT "It's not palindrome" END IF END Note: Palindrome number is the number which is equal to its reverse