Dim weight, length, width, height, volume As Integer
Dim output As String = "Package accepted"
Const VOLUME_LIMIT = 100000
Console.Write("Enter package weight in kilograms: ")
weight = Console.ReadLine()
Console.Write("Enter package length in centimeters: ")
length = Console.ReadLine()
Console.Write("Enter package width in centimeters: ")
width = Console.ReadLine()
Console.Write("Enter package height in centimeters: ")
height = Console.ReadLine()
volume = length * width * height
If weight > WEIGHT_LIMIT Then
output = "Rejected: Too heavy"
If volume > VOLUME_LIMIT Then
If output = "Package accepted" Then
output = "Rejected: Too large"
output &= " and too large"
Console.WriteLine(output)