Imports System

Public Module Module1

    Public Sub Main()

        dim peso as integer

        dim altura as integer 

        dim IMC as decimal 

        dim composicion as integer

        console.WriteLine("ingrese su peso en Kg")

        peso=console.ReadLine()

        console.WriteLine("ingrese su altura en M cuadrados")

        altura=console.ReadLine()

        IMC=(peso/altura)/20.2

        console.WriteLine("Su IMC es de:" & IMC)

        console.WriteLine("Escoja su composicion corporal 1.peso inferior al normal 2.normal 3.peso superior al normal 4.obesidad")

        composicion=console.ReadLine()

        if (composicion=1) then 

            peso=(peso>18.5)

        end if 

        if (composicion=2) then

            peso=(18.5-24.9)

        end if 

        if (composicion=3) then

            peso=(25.0-29.9)

        end if 

        if (composicion=4) then 

            peso=(peso<30.0)

        end if 

        console.WriteLine("Su indice de masa corporal es de:" & peso)

    End Sub

End Module