Imports System

Public Module Module1

    Public Sub Main()

    Dim weight As Integer

        Dim length As Integer

        Dim width As Integer

        Dim height As Integer

        Dim volume As Integer

        Dim Reply As String = ""

                Console.WriteLine("Enter package weight")

        weight = Console.ReadLine()

        Console.WriteLine("Enter package length")

        length = Console.ReadLine()

        Console.WriteLine("Enter package width")

        width = Console.ReadLine()

        Console.WriteLine("Enter package height")

        height = Console.ReadLine()

    If weight > 27 Then 

            Reply = "Rejected: too heavy "

        ElseIf weight <= 27 Then

            Reply = "Package accepted " 

        ElseIf volume > 100000 Then

            Reply = "Rejected: too large "

        ElseIf volume <= 100000 Then

            Reply = "Package accepted" 

        ElseIf weight > 27 And volume > 100000 Then

            Reply = "Rejected: Too heavy and Too Large "

        End If

        console.writeline(Reply)

    End Sub

End Module