Imports System

Public Module Module1

    Public Sub Main()

        'Comparar mayor y menor de tres numeros >

        Console.WriteLine("Ingrese los promedios")

        dim Matematicas, Fifu, progra as integer

        Matematicas=Console.ReadLine()

        Fifu=Console.ReadLine()

        progra=Console.ReadLine()

        'Evaluar el mayor de los tres 

        If Matematicas>Fifu and Matematicas>progra then

            Console.WriteLine("no satisfactorio")

        end if 

        If Fifu>Matematicas and Fifu>progra then 

            Console.WriteLine("no satisfactorio")

        else 

            Console.WriteLine("no satisfactorio")

        end if 

        'evaluar el menor de los tres 

        If Matematicas<Fifu and Matematicas<progra then

            Console.WriteLine("satisfactorio")

        end if 

        If Fifu<Matematicas and Fifu<progra then

            Console.WriteLine("satisfactorio")

        else 

            Console.WriteLine("satisfactorio")

        end if 

    End Sub

End Module