Imports System, Microsoft.VisualBasic

'Briged Gaona'

'Discount Program

'11/18/21

Public Module Module1

    Public Sub Main()

        'Step 1) Declare variables

        Dim total As Single

        Dim finalcost As Single

        Dim subtotal As Single

        Dim salestax As Single

        Dim discount As Single 

        Const TAX_RATE As Single = 0.06625

        'Step 2) User input 

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

        Total = Console.ReadLine()

        'Step 3) Calculations 

        Discount = total * 0.2

        Subtotal = total - discount 

        Salestax = subtotal * TAX_RATE

        finalcost = subtotal + salestax

        'Step 4) Output

        Console.WriteLine("Discount: " & formatcurrency(discount))

        Console.WriteLine("Subtotal: " & formatcurrency(subtotal))

        Console.WriteLine("Salestax: " & formatcurrency(salestax))

        Console.WriteLine("Finalcost: " & formatcurrency(finalcost))

    End Sub

End Module