import Control.Monad
import Data.List.Split
import Text.Printf
main = do
  s <- getContents
  let v = map (map (read::String->Double) . (splitOn ",")) . lines $ s
  let w = filter (/="") . map aux $ v
  mapM_ putStrLn w 

aux::[Double] -> String
aux f = let num=f!!0
            w = f!!1
            h = f!!2
            in
         if w/h/h >= 25.0 then printf "%.0f" num else ""