Imports System
Public Module Module1
Public Sub Main()
Dim n as integer
Dim num as integer
dim sum as integer = 0
Console.WriteLine("Enter ten numbers")
for n=1 to 10
num=console.readline()
if num>sum then
sum=0+num
end if
next
console.writeline("Your maximum number is " & sum)
End Sub
End Module