Module _20190422

    Sub Main()

        Dim sRead As String = Console.ReadLine()

        Dim iBWorld As Integer = sRead.Split(" ")(0)
        Dim iSpeed As Integer = sRead.Split(" ")(1)

        Console.WriteLine(iBWorld \ iSpeed)

    End Sub

End Module