main = interact $ unlines . map fst . filter (\(_,(w,h)) -> w / h^2 >= 25.0) . map read' . lines
 where read' xs = (\[s,w,h] -> (s, (read w, read h))) (splitOn ',' xs)

splitOn c xs
 | null xs = []
 | head xs == c = splitOn c (tail xs)
 | otherwise = (takeWhile (/= c)) xs : splitOn c (dropWhile (/= c) xs)