Imports System
Public Module Module1
Public Sub Main()
dim a(5) as integer
dim b as integer
dim c as integer
dim d as integer = 0
dim e as integer
dim max as integer
for b = 1 to 5
a(b) = console.ReadLine()
next
if(a(b) > max)
max = a(b)
end if
c = max
print(max)
dim f as integer
for d = 1 to 4
e = 0
f = 0
if(a(b) < c and a(b) > e)
e = a(b)
if(a(b) = e)
f = f + 1
for b = 1 to f
print(e)
c = e
End Sub
public sub print(p)
console.WriteLine(p)
end sub
End Module
