Imports System

'Josh LaRusso

'11/15/21

'PackageCheck Program

Public Module Module1

    Public Sub Main()

        Dim weight As Integer

        Dim length As Integer       'step 1

        Dim width As Integer

        Dim height As Integer

        Dim volume As Integer

        Dim message As String

        console.WriteLine("Enter the package weight: ")

        weight = console.ReadLine()

        console.WriteLine("Enter the package length: ")

        length = console.ReadLine()                         'step 2

        console.WriteLine("Enter the package width: ")

        width = console.ReadLine()

        console.WriteLine("Enter the package height")

        height = console.ReadLine()

        volume = length * width * height

        If weight <= 27 And volume <= 100000 Then

            message = "Package accepted"

        ElseIf weight <= 27 And volume > 100000 Then

            message = "Rejected: too large"                 'step 3

        ElseIf weight > 27 And volume <= 100000 Then

            message = "Rejected: too heavy"

        ElseIf weight > 27 And volume > 100000 Then

            message = "Rejected: too large and too heavy"

        End If

        console.WriteLine(message)                  'step 4

    End Sub

End Module