Module _20190525

    Sub Main()

        Dim sRead As String = Console.ReadLine()

        Dim iAge As Integer = sRead.Split(" ")(0)
        Dim iFee As Integer = sRead.Split(" ")(1)

        If iAge >= 13 Then

            Console.WriteLine(iFee)

        ElseIf iAge >= 6 Then

            Console.WriteLine(iFee / 2)

        Else

            Console.WriteLine(0)

        End If

    End Sub

End Module
