module Main where
import Control.Applicative ((<$>))

main = do
  s <- (\x -> read x :: Int)  <$> getLine
  putStrLn $ solve s


solve :: Int -> String
solve n = (show h) ++ ":" ++ (show m) ++ ":" ++ (show s)
  where
    h  = div n (60 * 60 )
    m = div n (60 ) - h * 60
    s = n - m * 60  - h * 60 * 60