Imports System
Public Class Program
Public Shared Sub Main()
Dim n As Integer = 12321
Dim remainder As Integer, reverse As Integer = 0, tempn As Integer = n
While n > 0
remainder = n Mod 10
reverse = (reverse * 10) + remainder
n = n / 10
End While
If tempn = reverse Then
Console.WriteLine("Palindrome")
Else
Console.WriteLine("Not palindrome")
End If
End Sub
End Class
' run:
'
' Palindrome
'