import Control.Applicative

main :: IO ()
main = do 
    n <- readLn
    putStrLn $ show (solve n)
    
solve :: Int -> Int 
solve n = if even n then (n `div` 2) ^ 2 else (n `div` 2) * ((n `div` 2) + 1)