(let ((N (read))) (display (exact->inexact (* 100 (/ (- 10000 N) (* 2 (+ (* 49 N) 5000)))))))