'Jason Nacionales

'11/15

'Package Check

​

Imports System

Public Module Module1

    Public Sub Main()

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

        Dim endMessage As String

        Const MAX_WEIGHT As Integer = 27

        Const MAX_VOLUME As Integer = 100000

        Console.Write("Enter package weight in kg: ") 'user input

        weight = Console.ReadLine()

        Console.Write("Enter package length in cm: ")

        length = Console.ReadLine()

        Console.Write("Enter package width in cm: ")

        width = Console.ReadLine()

        Console.Write("Enter package height in cm: ")

        height = Console.ReadLine()

        volume = length * width * height 'calculations

        If weight <= 0 Or length <= 0 Or width <= 0 Or height <= 0 Then

            endMessage = "Invalid package dimensions"

        Else If weight <= MAX_WEIGHT And volume <= MAX_VOLUME Then

            endMessage = "Package accepted"

        Else If weight > MAX_WEIGHT And volume > MAX_VOLUME Then

            endMessage = "Rejected: Package is too large and heavy"

        Else If weight > MAX_WEIGHT Then

            endMessage = "Rejected: Package is too heavy"

        Else If volume > MAX_VOLUME Then

            endMessage = "Rejected: Package is too large"

        End If

        Console.WriteLine(endMessage) 'output           

    End Sub

End Module