Imports System
Public Module Module1
Public Sub Main()
Console.WriteLine("Hello World")
dim marks() as integer = {67,87,23,90,65,38,73,66,82,39}
dim temp as integer
temp = 0
for t = 0 to 8
for x = 0 to 8
if marks(x)>marks(x + 1) then
temp = marks(x)
marks(x)= marks(x + 1)
marks(x + 1) = temp
end if
next x
next t
Console.WriteLine(marks(x))
End Sub
End Module