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