module Main where

import Control.Applicative
import Text.Printf

getInt :: IO Int
getInt = head <$> getInts

getInts :: IO [Int]
getInts = map read . words <$> getLine

main :: IO ()
main = do
  { ss <- getInt
  ; let (q , s ) = divMod ss 60
  ; let (h , m ) = divMod q 60
  ; putStrLn(show h ++ ":" ++ show m ++ " : " ++ show s)
  }

