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