(define (solve K S) (quotient (* S 100) (- 100 K))) (display (solve (read) (read))) (newline)