Imports System
Public Module Module1
Public Sub Main()
Dim nCount as long
Dim nNum as decimal
Dim nMax as decimal
Do
nNum = Console.ReadLine()
'find the max
If nNum > nMax then
nMax = nNum
End if
nCount = nCount + 1
Loop Until nCount = 2
Console.WriteLine(nMax)
End Sub
End Module