import Data.Ratio

main = do
 getLine
 zs <- map read . words <$> getLine
 let r = gear zs
 putStrLn $ show (numerator r) ++ "/" ++ show (denominator r)

gear zs = product $ zipWith (%) (tail zs) zs