main = do
    n <- readLn
    let half = n `div` 2
    print $ half * (n - half) - 1