Imports System, Microsoft.VisualBasic

'Sanjit Kakarla

'11/29/21

'Delivery Program

Public Module Module1

    Public Sub Main()

        Dim packageWeight As Single 'Step 1: Declare Variables

        Dim shippingOption As String

        Dim totalPrice As Single

        Console.WriteLine("Enter the package weight in ounces: ") 'Step 2: User Input

        packageWeight = Console.ReadLine()

        Console.WriteLine("Enter the shipping option, (P/p/Priority/priority) for Priority or (E/e/Express/express) for Express shipping: ")

        shippingOption = Console.ReadLine()

        If shippingOption = "P" Or shippingOption = "p" Or shippingOption = "Priority" Or shippingOption = "priority" Then  'Step 3: Calculations

            If packageWeight <= 8 Then

                totalPrice = 5.95

            ElseIf packageWeight > 8 And packageWeight <= 16 Then

                totalPrice = 7.95

            ElseIf packageWeight > 16 Then

                totalPrice = 7.95 + (packageWeight - 16) * 0.3

            End If

        ElseIf shippingOption = "E" Or shippingOption = "e" Or shippingOption = "Express" Or shippingOption = "express" Then

            If packageWeight <= 16 Then

                totalPrice = 15.95

            ElseIf packageWeight > 16 Then

                totalPrice = Math.Ceiling(packageWeight/16) * (10.95)

            End If

        End If

        Console.WriteLine(FormatCurrency(totalPrice)) 'Step 4: Output

    End Sub

End Module