readInt :: String -> Int
readInt = read

main = getLine>>=print.solve.readInt

solve s = length[(a,b)|a <- gusu , b <- kisu]
    where 
        gusu = [x | x <- [1..s], even x]
        kisu = [x | x <- [1..s], odd x]