Module _20190422

    Sub Main()

        Dim sRead As String = Console.ReadLine()

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

        Dim iResult As Decimal = Math.Round(iBWorld / iSpeed, 10, MidpointRounding.AwayFromZero)

        Console.WriteLine(iResult)

    End Sub

End Module