main = do
        str <- getLine
        let num = read str
        putStrLn $ show ((num*num+1)`div`2)