import Data.List.Split (splitOn)

isObese :: Double -> Double -> Bool
isObese w h = (w / h / h) >= 25

main :: IO ()
main = putStr . unlines . map show . map round . map head . filter (\[_, w, h] -> isObese w h) . map (map read). map (splitOn ",") . lines =<< getContents