solve :: Integral a => a -> a solve n = let x = div n 2 in (x + 1) * (n - x + 1) - 1 main :: IO () main = print . solve =<< readLn