Imports System

Public Module Module1

    Public Sub Main()

        'Ingreso de variables

        Dim pher, sher, diferencia As Integer

        'Mostrar en pantalla mensaje para que el usuario 

        'escriba ingrese la edad del primer hermano

        Console.WriteLine("Ingrese edad del primer hermano: ")

        'Guardar la edad del primer hermano en pher

        pher = Console.ReadLine

        'Mostrar en pantalla mensaje para que el usuario

        'escriba ingrese la edad del segundo hermano

        Console.WriteLine("Ingrese edad del segundo hermano: ")

        'Guardad la edad del segungo hermano en pher

        sher = CInt(Console.ReadLine)

        'Comparar las edades de los dos hermanos

        diferencia = Math.Abs(pher - sher)

        If diferencia = 0 Then

            Console.WriteLine("Los hermanos tienen la misma edad")

        ElseIf diferencia > 0 Then

            'si es el primer hermano es mayor indicar la diferencia con un mensaje

            Console.WriteLine("El primer hermano es mayor por: " & diferencia & " años")

        ElseIf diferencia < 0 Then

            'si es el segundo hermano es mayor indicar la diferencia con un mensaje 

            Console.WriteLine("El segundo hermano es mayor por: " & diferencia & " años")

        End If

        'Esperar hasta que el usuario preciones la tecla Enter

        Console.ReadLine()

    End Sub

End Module