Imports System

Public Module Module1

    Public Sub Main()

    dim productos() as string={"Computador", "Celular", "Televisor"}

        dim valorproducto() as integer={2500000, 1200000, 2800000}

        dim seleccion as integer

        dim cantidad as integer

        dim respuesta as integer

        console.WriteLine("Seleccione un producto 0. Computador, 1. Celular, 2.Televisor")

        seleccion=console.ReadLine()

        console.WriteLine("Ingrese la cantidad de productos comprados: ")

        cantidad=console.ReadLine()

        respuesta=valorproducto(seleccion)*cantidad

        console.WriteLine("El producto comprado es: " & productos(seleccion) & " con un valor unitario de: "& valorproducto(seleccion) & " el total a pagar es: "& respuesta)

    End Sub

End Module