import Data.Functor( (<$>))
main = do
    s <- read <$> getLine
    let
        (h,remain) = s `divMod` 3600
        (m,sec) = remain `divMod` 60
    putStrLn $ (show h)++":"++(show m)++":"++(show sec)

