module Main where

main = do
  s <- readLn
  let seconds = s `mod` 60
      minutes = s `div` 60 `mod` 60
      hours = s `div` 60 `div` 60
  putStrLn $ show hours ++ ":" ++ show minutes ++ ":" ++ show seconds

