let () =
  let d, p = Scanf.scanf "%d %d " (fun d p -> d, p) in
  let f = (float d) *. (float p /. 100.) |> floor |> truncate in
  Printf.printf "%d\n" (d + f)