Microsoft Small Basic

Program Listing: PNL342
TextWindow.Write("Scrieţi un număr: ")
n=TextWindow.ReadNumber()
nrest=n
ninvers=0
max=0
While (nrest>0)
cifra=Math.Remainder(nrest,10)
If cifra>max Then
max=cifra
EndIf
nrest=Math.Floor(nrest/10)
ninvers=ninvers*10+cifra
EndWhile
TextWindow.WriteLine("Numărul inversul este: "+ninvers)
If n=ninvers Then
TextWindow.WriteLine("Este palindrom!")
Else
TextWindow.WriteLine("Nu este palindrom!")
EndIf
TextWindow.WriteLine("Cea mai mare cifră a numărului este "+max)