selectiva1

1) Calcular el total que una persona debe pagar en una llantera, sabiendo que el precio de cada llanta es de $800 si se compran menos de 5 llantas y de $700 si se compran 5 o más.

Module Module1

Sub Main()
Dim cant, tot_pag As Integer
Console.WriteLine("digite cantidad de llantas")
cant = Console.ReadLine()
If cant < 5 Then
tot_pag = cant * 800
Else
tot_pag = cant * 700
End If
Console.WriteLine("El total a pagar es:" & tot_pag)
Console.ReadLine()

End Sub

End Module