Imports System, Microsoft.VisualBasic

'Alexandra Valera

'11/10/21

'Discount Program

Public Module Module1

    Public Sub Main()

        Dim cost As Integer

        Dim discount As Integer

        Dim subtotal As Integer

        Dim salesTax As Single

        Dim finalCost As Single

        Const TAX_RATE = 0.06625

        Console.WriteLine("Enter total cost of items: ")

        cost = Console.ReadLine()

        discount = cost * 0.20

        subtotal = cost - discount

        salesTax = subtotal * TAX_RATE

        finalCost = subtotal + salesTax

        Console.WriteLine("Discount: " & FormatCurrency(discount,2))

        Console.WriteLine("Subtotal: " & FormatCurrency(subtotal,2))

        Console.WriteLine("Sales Tax: " & FormatCurrency(salesTax,2))

        Console.WriteLine("Final Cost: " & FormatCurrency(finalCost,2))

    End Sub

End Module