let () =
  let rec read () =
    try let (s,w,h) = Scanf.scanf " %d,%f,%f\n" (fun x y z->(x,y,z)) in
        let bmi = w/.(h*.h) in
        if bmi >= 25. then
          Printf.printf "%d\n" s
        else ()
        ;read ()
    with End_of_file -> ()
  in read ()
;;