(define d (read)) (define p (read)) (print (floor(* d (/(+ 100 p)100))))