Imports System

Public Module Module1

    public Class Vehicle

    End Class

    public Class Car 

    Inherits Vehicle

    End Class

    public Class Motorocycle  

    Inherits Vehicle

    End Class

    Public Sub Main()

        Dim pre, des, pre_f, p As Decimal

        Console.WriteLine(" Digite el valor del producto ")

        pre = Console.ReadLine

        Console.WriteLine(" Digite los kilos")

        p = Console.ReadLine()

        If p < 2 Then

            pre_f = pre 

            Console.WriteLine(" El valor final es: " & pre_f)

        ElseIf 2 < 5 Then

            des = pre * 0.1

            pre_f = pre - des

            Console.WriteLine(" El valor final es: " & pre_f)

        ElseIf 5 < 10 Then

            des = pre * 0.15

            pre_f = pre - des

            Console.WriteLine(" El valor final es: " & pre_f)

        Else

            des = pre * 0.2

            pre_f = pre - des

            Console.WriteLine(" El valor final es: " & pre_f)

        End If

        Console.ReadLine()

​

    End Sub

End Module

​

​