Imports System

Public Module Module1

    Public Sub Main()

        Dim height1, height2, height3, average as Single

        ' In VB, the equivalent of a float or real is called a single

        ' We intoduce these variables before we use them and set them as a Single

        ' They're set as a single as their input will accomodate irrational numbers

        Console.WriteLine("Enter a height: ")

        ' Console.WriteLine is much like print in python and allows output to be displayed

        height1 = Console.ReadLine()

        ' Console.ReadLine allows input from the user

        ' We set variables to Console.ReadLine so then we can access these values for later in code

        Console.WriteLine("Enter a height: ")

        height2 = Console.ReadLine()

        Console.WriteLine("Enter a height: ")

        height3 = Console.ReadLine()

        average = (height1 + height2 + height3)/3

        ' We use another variable for the maths to figure out the average before we display it below

        Console.WriteLine(average)

    End Sub

End Module