Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("TIENDA DONDE EL CACHA")

        console.WriteLine("=============== Menu de productos==================")

        console.WriteLine(" productos alimenticios: grano carne fruta verdura otrotros")

        CONSOLE.WriteLine("bebidas: postobon cocacola Fanta otros")

        CONSOLE.WriteLine(" productos de limpieza: Jabon el REY FAB Aromatel Suavitel otros")

        CONSOLE.WriteLine("¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨")

        DIM A , B , L AS INTEGER

        DIM CC, CJ, CG, CGA  AS INTEGER

        DIM MONTOTAL, IVA, TP, CRC, CAMBIO AS DOUBLE

        DIM I AS INTEGER 

        FOR I = 1 TO 6 STEP 1

        CONSOLE.WriteLine("CANTIDAD DE PRODUCTOS ALIMENTICIOS; ")

        CC = console.ReadLine()

        console.WriteLine("CANTIDAD DE BEBIDAS;")

        CJ = CONSOLE.ReadLine()

        CONSOLE.WriteLine("CANTIDAD DE PRODUCTOS DE LIMPIEZA;")

        CG = CONSOLE.ReadLine()

        CGA = CONSOLE.ReadLine()

        CONSOLE.WriteLine("CANTIDAD RECIBIDA POR EL CLIENTE")

        CRC = CONSOLE.ReadLine()

        MONTOTAL = (A * CC) + ( C * CJ) + (R * CG) + ( M * CGA)

        CONSOLE.WriteLine("EL MONTO TOTAL ES; " & MONTOTAL)

        IVA = MONTOTAL * 0.19

        TP = MONTOTAL + IVA

        CAMBIO = CRC - TP

        CONSOLE.WriteLine(" EL MONTO TOTAL ES : " & MONTOTAL)

        CONSOLE.WriteLine(" EL IVA ES ; " & IVA)

        CONSOLE.WriteLine("EL TOTAL A PAGAR ES : " & TP)

    NEXT

    End Sub

End Module