import Text.Printf
 
main = do
  l <- getLine
  let time = read l :: Int
      s    = time `mod` 60
      ms   = time `div` 60
      m    = ms `mod` 60
      h   = ms `div` 60
  printf "%d:%d:%d\n" h m s