main :: IO ()
main = do
    n <- readLn
    let s = solve n
    putStrLn s

solve i = show a ++ ":" ++ show b ++ ":" ++ show c
    where
      a = (i `div` 60) `div` 60
      b = (i `div` 60) `mod` 60
      c =  i `mod` 60
