Imports System

Public Module Module1

    Public Sub Main()

        dim weightkg as decimal

        dim heightinmetres as decimal

        dim bmi as decimal

        console.WriteLine("please enter your weight in kg")

        weightkg = console.ReadLine()

        Console.WriteLine("please enter your height in metres")

        'the code asks for your weight and height

        heightinmetres = console.readline()

        bmi = ( weightkg / (heightinmetres^2))

        'the code runs the calculation of weight/height squared, depending on the answer, it will give a response based on your bmi score

        console.writeline(bmi)

        if bmi < 18.5 then 

            console.writeline("you are under weight, probably put on some weight")

        elseif bmi < 24.9 then

            console.writeline("you are a healthy weight, keep it up!")

        elseif bmi = 25 then 

            console.writeline("you are a healthy weight, keep it up!")

        elseif bmi < 29.9 then 

            console.writeline("you are obsese, start losing weight")

        elseif bmi = 30 then

            console.writeline("you are obsese, start losing weight")

        elseif bmi > 30 then

            console.writeline("you are extremely obese, this will affect your health")

        end if

    End Sub

End Module