Imports System

Public Module Module1

    Public Sub Main()

        Dim peso,distancia,total,valorKilo, seguro as Double

        Dim fragil as Integer

        Console.WriteLine("------- Empresa de viajes -------")

        Console.WriteLine("Digite peso de la entraga (kg):")

        peso = Console.ReadLine()

        Console.WriteLine("Digite distancia de la entraga (km):")

        distancia = Console.ReadLine()

        Console.WriteLine("¿ Paquete fragil ? 1/Si 0/No:")

        fragil = Console.ReadLine()

        If(distancia > 100) then

            If( fragil = 1) then

                valorKilo = 7.5

                seguro = 25

            else

                valorKilo = 6

                seguro = 10

            End If

        else

            If( fragil = 1) then

                valorKilo = 5

                seguro = 10

            else

                valorKilo = 3.2

                seguro = 5

            End If

        End If

        total = (peso*valorKilo) + ( (peso*valorKilo)*seguro/100)

        Console.WriteLine("Valor total: $"& total &" dólares" )

    End Sub

End Module