Imports System

'CALCULADORA DE INDICE DE MASA CORPORAL

'REALIZADO POR:DULCIDA SOPHIA ESTRADA BARRIOS 

'NECESIAMOS PESO EN KL Y ESTATURA EN E M

'VAMOS A PEDIR EL PESO EN LIBRAS Y HAREMOS LA CONVERSION A KG

'IMC =KG/ESTATURA ^2

Public Module Module1

    Public Sub Main()

        DIM PESO, KG, ESTATURA, IMC AS DOUBLE

        Console.WriteLine("CALCULADORA DE INDICE DE MASA CORPORAL")

        CONSOLE.WriteLine("INGRTESE PESO EN LIBRAS: ")

        PESO = CONSOLE.ReadLine()

        KG= PESO/2.2

        CONSOLE.WriteLine("INGRESE ESTATURA EN METROS: ")

        ESTATURA =CONSOLE.ReadLine()

        'CALCULO DE IMC

        IF PESO >0 AND ESTATURA >0 THEN

        IMC = KG / (ESTATURA ^2)

        CONSOLE.WriteLine("EL IMC ES: {0}" ,IMC)

        ELSE

            CONSOLE.WriteLine("NO SE PERMITE EL INGRESO DE CERO")

        END IF 

        IF IMC < 18.5 THEN

            CONSOLE.WriteLine("PESO INFERIOR A LO NORMAL")

        END IF

        IF IMC >=18.5 AND IMC < 25 THEN

            CONSOLE.WriteLine("PESO NORMAL")

        END IF 

        IF IMC >=25 AND IMC <30 THEN

            CONSOLE.WriteLine("PERO SUPERIOR AL NORMAL")

        END IF

        IF IMC >= 30 THEN 

            CONSOLE.WriteLine("OBESIDAD")

        END IF

    End Sub

End Module