main = do sec <- readLn
          let h = sec `div` 3600
          let m = (sec - 3600*h) `div` 60
          let s = sec - 3600*h - 60*m
          print $ (show h) ++ ":" ++ (show m) ++ ":" ++ (show s)