main :: IO ()
main = do input <- getLine
          let sec = read input :: Int
          let h = sec `div` 3600
          let sec' = sec `mod` 3600
          let m = sec' `div` 60
          let s = sec' `mod` 60
          putStrLn $ show h ++ ":" ++ show m ++ ":" ++ show s