(defun main () (let ((n (read)) (a (read))) (format t "~d~%" (floor (* n (- 100 a)) 100)))) (main)