(defun shouhizei (D P) (floor(* D (/ P 100))))

(defun paymoney (D P) (+ D (shouhizei D P)))

(defun main () (let ((D (read)) (P (read))) (format t "~A~%" (paymoney D P))))

(main)