Imports System

'Louis Hostetler

'11/15/21

'PackageCheck Program

Public Module Module1

    Public Sub Main()

        Dim weight, width, length, height, volume As Integer                'declare variables

        Console.WriteLine("Enter the weight of the package in kg: ")        'user input

        weight=console.ReadLine()

        Console.WriteLine("Enter the width of the package in cm: ")

        width=console.ReadLine()

        Console.WriteLine("Enter the length of the package in cm: ")

        length=console.ReadLine()

        Console.WriteLine("Enter the height of the package in cm: ")

        height=console.ReadLine()

        volume = width * length * height                    'calculations

        If weight > 27 And volume > 100000 Then             'output

            console.WriteLine("Rejected: Package is too heavy and too large." )

        ElseIf weight > 27 And volume <= 100000 Then

            console.WriteLine("Rejected: Package is too heavy.")

        ElseIf weight <= 27 And volume > 100000 Then

        console.WriteLine("Rejected: Package is too large.")

        ElseIf weight <= 27 And volume <= 100000 Then

            console.WriteLine("Package Accepted.")

        End If

    End Sub

End Module