Imports System

'Jeyron'

'11/12/21'

'Package Check Program'

Public Module Module1

    Public Sub Main()

        Dim weight As Integer           'Declaring Variables'

        Dim length As Single 

        Dim width As Single  

        Dim height As Single  

        Dim permission As String 

        Dim volume As Single

        Console.WriteLine("Package weight:")        'Inputs'

        weight = Console.ReadLine()

        Console.WriteLine("Package length:")

        length = Console.ReadLine()

        Console.WriteLine("Package width:")

        width = Console.Readline()

        Console.WriteLine("Package height:")

        height = Console.ReadLine()

        volume = length * width * height            'Calculations'

        If weight <= 27 And volume <= 100000

            permission = "Package accepted"

        ElseIf weight >= 27 And volume >= 100000  

            permission = "Too heavy and Too Large"

        ElseIf weight >= 27 And volume <= 100000

            permission = "Package Too heavy"

        ElseIf weight <= 27 And volume >= 100000

            permission = "Package Too Large"

        End If 

        Console.WriteLine("Permission: " & permission)      'Output

    End Sub

End Module