import Control.Applicative
main = do
  n <- read <$> getLine
  let m = n`div`2
  let k = n - m
  let ans = c2(m) + c2(k)
  print ans
    where
      c2 n = n * (n-1) `div` 2