Imports System

Public Module Module1

    dim imc as double 

    Public Sub Main()

        dim peso as integer 

        dim kg as double 

        dim altura as double 

        Console.WriteLine("Calculadora de IMC")

        Console.WriteLine("Ingrese peso en libras")

        peso =  Console.ReadLine()

        kg = peso / 2.2 

        Console.WriteLine("Ingrese altura")

        altura = console.ReadLine()

        imc = kg / altura^2

        'imc = kg / (altura * altura)

        Console.WriteLine("El IMC es: " &imc)

        if imc <= 20 then

        bajo 

        end if 

        if imc > 20 and imc <=25 then

            console.WriteLine("Peso normal")

        end if 

    End Sub

    private sub bajo()

        if imc < 20 then

            console.writeline ("Bajo peso ")

        end if

    end sub 

End Module