(let* 
  ((l (map string->number (string-split (read-line) " ")))
   (d (car l))
   (p (+ 100 (cadr l))))
  (print (floor (* d (/ p 100)))))