import Data.List (intercalate)

main :: IO ()
main = do
    line <- getLine
    let
        n1 = (read line :: Int)
        (n2, s) = divMod n1 60
        (h,  m) = divMod n2 60
    putStrLn $ intercalate ":" [show h, show m, show s]

