main = do
    line <- getLine
    let n = read line :: Int
    let h = n `div` 3600
    let m = n `div` 60 `mod` 60
    let s = n `mod` 60
    putStrLn $ show (h) ++ ":" ++ show (m) ++ ":" ++ show (s)

