Module Module1
    Sub Main()
        Dim num1, num2, num3, max, min, sum, prod, rep As Decimal
        Console.WriteLine("Introduza o primeiro #: ")
        num1 = Console.ReadLine()
        Console.WriteLine("Introduza o segundo #: ")
        num2 = Console.ReadLine()
        Console.WriteLine("Introduza o terceiro #: ")
        num3 = Console.ReadLine()
        If num1 > num2 And num1 > num3 Then
            max = num1
        ElseIf num2 > num1 And num2 > num3 Then
            max = num2
        ElseIf num3 > num1 And num3 > num2 Then
            max = num3
        ElseIf num1 = num2 And num1 > num3 Then
            max = num1
        ElseIf num1 = num3 And num1 > num2 Then
            max = num1
        ElseIf num2 = num3 And num2 > num1 Then
            max = num2
        Else
            max = num1
            min = max
        End If
        If num1 < num2 And num1 < num3 Then
            min = num1
        ElseIf num2 < num1 And num2 < num3 Then
            min = num2
        ElseIf num3 < num1 And num3 < num2 Then
            min = num3
        ElseIf num1 = num2 And num1 < num3 Then
            min = num1
        ElseIf num1 = num3 And num1 < num2 Then
            min = num1
        ElseIf num2 = num3 And num2 < num1 Then
            min = num2
        End If
        sum = max + min
        prod = num1 * num2 * num3
        If num1 = num2 Then
            rep = rep + 1
        ElseIf num1 = num3 Then
            rep = rep + 1
        End If
        If num2 = num3 Then
            rep = rep + 1
        End If
        Console.Write("Soma do maior com o menor: " & sum & vbCrLf & "Produto dos 3 #: " & prod & vbCrLf & "# de repetições: " & rep)
        Console.Read()
    End Sub
End Module