(define s (read)) (define k (read)) (display (* k (exact->inexact (/ s 100)))) (newline)