Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Enter your car speed to kmow 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