import Control.Monad

rInt :: String -> Int
rInt = read

fstInt [t, s] = (rInt t, s)

solve ts = typing [0,0] ts
    where
        typing xy [] = xy
        typing [x,y] (ts:lts)
            | tnum > slen   = typing [x + slen, y] lts
            | otherwise     = typing [x + tnum, y + (slen - tnum)] lts
            where
                tnum = (12 * fst ts) `div` 1000
                slen = length $ snd ts

main = do
    n <- readLn
    ts <- map (fstInt . words) <$> replicateM n getLine
    let ans = solve ts
    putStrLn $ unwords $ map show ans