main = do
  l <- readLn :: IO Integer
  print $ (l-1) * (l+1) `div` 4 - (l-1) `div` 2