-- 1_1_D
main = do t <- getLine
          let t' = read t :: Int
          let h = t' `div` 3600
          let m = t' `mod` 3600 `div` 60
          let s = t' `mod` 60
          putStrLn $ show h ++ ":" ++ show m ++ ":" ++ show s