Module Module1

    Sub Main()

        Dim n As Decimal = Decimal.Parse(Console.ReadLine())
        Dim ans As Integer = Math.Floor(n / 2) - 1

        Console.WriteLine(ans.ToString)

    End Sub

End Module