import Data.List
main = do
	n <- readLn
	a <- getLine >>= return . map read . words
	let s = sum a
	putStrLn $ unwords $ (\(s,t) -> [show (length s), show(length t)] ) $ partition (==2) $ [ s `div` (n-1) - x  | x<-a ]