(let* ((D (read)) (P (read))) (print (div (* D (+ 100 P )) 100)))