bmi w h        = w / (h * h)
bmi' [s, w, h] = (floor s, bmi w h)
bmiOver25      = map fst . filter ((>= 25) . snd) . map bmi'

main = do
  s <- getContents
  putStr . unlines . map show
         . bmiOver25
         . map (map read . words . map commaToSpace) . lines $ s

commaToSpace ',' = ' '
commaToSpace  c  =  c