hms :: Int -> [Int]
hms s = [div s (60 * 60), div (mod s (60 * 60)) 60, mod (mod s (60 * 60)) 60]

ft [] = []
ft [x] = show(x)
ft (x:xs) = show (x) ++ ":" ++ ft xs

main = do
  s <- readLn :: IO Int
  putStrLn $ ft $ hms s