Imports System

Public Module Module1

    Public Sub Main()

        Dim name As String

        Dim count As Integer 

        name = Console.ReadLine()

        count = Console.ReadLine()

        IF count = 0

            Console.WriteLine(count) 

            count = count - 1

        END IF

    End Sub

End Module