Imports System

Public Module Module1

    Public Sub Main()

        Dim i = 1

        Dim n(5) as Decimal

        Dim maxValue as Decimal

        Dim minValue as Decimal

        Dim maxValue2 as Decimal

        Dim minValue2 as Decimal

        minValue = 999

        n(1) = Console.ReadLine()

        n(2) = Console.ReadLine()

        n(3) = Console.ReadLine()

        n(4) = Console.ReadLine()

        n(5) = Console.ReadLine()

        For i = 1 To 5

​

        If n(i) > maxValue Then

            maxValue2 = maxValue

            maxValue = n(i)

        End If

        If n(i) < minValue Then

            minValue2 = minValue

            minValue = n(i)

        End IF

​

    Next

        Console.WriteLine("Maximum Value is " & maxValue)

        Console.WriteLine("Minimum Value is " & minValue)

        Console.WriteLine("Second Maximum Value is " & maxValue2)

        Console.WriteLine("Second Minimum Value is " & minValue2)

    End Sub

End Module