import Control.Applicative ((<$>))

main :: IO ()
main = do
  solve <$> readLn >>= print

solve :: Int -> Int
solve l = ababa l + ababa (l - 2)

ababa x = let y = x `div` 2
          in y * (y + 1) `div` 2