Imports System
Public Module Module1
Public Sub Main()
console.WriteLine(“Enter your car speed to know how much you have to pay for the traffic violation")
dim a as single = console.ReadLine()
if a >250 then
console.WriteLine("You have to pay 1000$")
else if a >=200
console.WriteLine("You have to pay 700$")
else if a >150
console.WriteLine("You have to pay 500$")
else if a >=100
console.WriteLine("You are within the speed limit")
end if
End Sub
End Module
