Module Module1

    Sub Main()

        Dim n As Decimal = Decimal.Parse(Console.ReadLine())

        Dim ans As Integer = Math.Floor((n - 1)/ 2)

        Console.WriteLine(ans.ToString)

    End Sub

End Module

