main = do
  line <- getLine
  let totalSec = read line :: Int
  let sec = mod totalSec 60
  let min = mod (div totalSec 60) 60
  let hr = div totalSec 3600
  putStrLn $ fmt hr min sec
  where
    fmt hr min sec = (show hr) ++ ":" ++ (show min) ++ ":" ++ (show sec)


