(define-values (d p)
 (apply values (map string->number (string-split (read-line) " "))))

(print (floor (* d (+ 1 (/ p 100)))))