Imports System

Public Module Module1

    Public Sub Main()

        Dim dolar, tipodecambio, pesos as Double

        Console.WriteLine("Ingrese monto en dolares: ")

        dolar=console.ReadLine()

        Console.WriteLine("Ingrese tipo de cambio del dia: ")

        tipodecambio=console.ReadLine()

        pesos=dolar * tipodecambio

        Console.WriteLine("Su monto en pesos es: ")

        Console.WriteLine(pesos)

    End Sub

End Module