Imports System, Microsoft.VisualBasic

'Div Patel

'11/29/2021

'Delivery Program

Public Module Module1

    Public Sub Main()

        Dim time As Char                  'Declare Variable

        Dim Weight As Single

        Dim totalPrice As Single

        Console.WriteLine("Enter package weight")

        Weight = Console.ReadLine()                                                 'Get User Input

        Console.WriteLine("Enter (P) for Priority  or (E) for Express: ")

        time = Console.ReadLine()

        If time = "P" or time = "p" Then

            If Weight <= 8 Then                                   'Calculation

                totalPrice = 5.95

            ElseIf Weight >8 And Weight <=16 Then

                totalPrice = 7.95

            Else

                totalPrice = 7.95 + ((Weight - 16) * .30)

            End If

        ElseIf time = "E" or time = "e" Then

            If weight <= 16 Then

                totalPrice = 15.95

            ElseIf weight >16 Then

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

            End If 

        End If

        Console.WriteLine("Shiping Price: " & FormatCurrency(totalPrice))           'Output

    End Sub

End Module