Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Average long jump program")

        dim inttotal as integer

        dim divnum as integer = 4 

        dim intjump as integer

        Dim intnum1 as integer 

        dim intnum2 as integer 

        dim intnum3 as integer 

        dim intnum4 as integer 

        dim stroperator1 as string 

        dim stroperator2 as string 

        Console.WriteLine("enter first jump length")

        intnum1 = Console.ReadLine()

        Console.WriteLine("enter second jump length")

        intnum2 = Console.ReadLine()

        Console.WriteLine("enter third jump length")

        intnum3 = Console.ReadLine()

        Console.WriteLine("enter fourth jump length")

        intnum4 = Console.ReadLine()

        Console.WriteLine("enter +")

        stroperator1 = console.ReadLine()

        if stroperator1 = "+" then 

            inttotal = intnum1 + intnum2 + intnum3 + intnum4

            console.WriteLine(intnum1 & "+" & intnum2 & "+" & intnum3 & "+" & intnum4 & "=" & inttotal)

        end if 

        console.WriteLine("Enter /")

        stroperator2 = console.ReadLine()

        if stroperator2 = "/" then

            intjump = inttotal / divnum

            console.WriteLine(inttotal & "/" & divnum & "=" & intjump)

        end if 

    End Sub

End Module