Imports System
Public Module Module1
Public Sub Main()
dim x(9)
dim y as integer = 0
dim z as integer = 0
dim a as integer = 0
dim b as integer = 0
dim c as integer = 0
dim d as integer = 0
dim e as integer = 0
dim f as integer = 0
'Max Value
for i = 0 to 9
x(i) = console.readline()
if x(i) > a
a = x(i)
end if
next
'Min Value
if x(i) < b
b = x(i)
if b = 0
'Second highest value
if x(i) > c
c = x(i)
if i >= 1
d = x(i-1)
if c > a or c = a
c = d
'Second lowest value
if x(i) < e
e = x(i)
f = x(i-1)
if e > b or e = b
e = f
if e = 0
console.writeline (a)
console.writeline (b)
console.writeline (c)
console.writeline (e)
End Sub
End Module
