Imports System

Public Module Module1

    Public Sub Main()

        Dim precio as integer

        Dim ganancia, costo as double

        Console.WriteLine("Precio de producto")

        Costo = Console.ReadLine

        If precio < 100 then

            Console.WriteLine("su ganancia es del 50%:" )

            ganancia = Precio * 0.7

            costo = precio + ganancia

            Console.WriteLine(" la ganancia es del:" &ganancia)

            Console.WriteLine(" el costo total debe ser:" &costo)

        End if 

        If precio > = 100 and precio < = 500 then

            Console.WriteLine("Su ganancia es del 50%:" )

            ganancia = precio * 0.5

            costo = precio + ganancia

            Console.WriteLine(" la ganancia es del:" &ganancia)

            Console.WriteLine(" el costo total debe ser:" &costo)

        End if

        If precio > = 500 then

            Console.WriteLine("Su ganancia es del 50%:" )

            ganancia = precio * 0.4

            costo = precio + ganancia

            Console.WriteLine(" la ganancia es del:" &ganancia)

            Console.WriteLine(" el costo total debe ser:" &costo)

        End if

    End Sub

End Module