Imports System

'Anais Gallegos'

'Packagecheck program'

'11/15/21'

Public Module Module1

    Public Sub Main()

        Dim Weight as Integer

        Dim Length as Integer                   'Declare variables'

        Dim Width as Integer

        Dim Height as Integer

        Dim Volume as Integer

        Dim Status as String

        console.WriteLine("Please enter the weight of the package")

        weight= Console.ReadLine()

        Console.writeline("Please enter the Length of the package")

        length= console.ReadLine()

        console.WriteLine("please enter the width of the package")          'user input'

        width= Console.ReadLine()                                                           

        console.WriteLine("Please enter the Height of the package")

        Height=console.readline

        Volume = length * Width * height

        If weight >= 27 then

            Status = "rejected: the package is too heavy"               'calculations'

        elseif length <= 100000 then

            status = "package accepted"

        elseif width >= 27 then

            status = "the package is too large" 

        elseif height >= 27 and 100000 then 

            status = "rejected: the package is too large and heavy"

        end if

        console.WriteLine(Status)                                           'user output'

    End Sub

End Module