PROGRAM MAIN IMPLICIT NONE INTEGER :: D, P READ *, D, P PRINT *, INT(FLOAT(D) * (P * 0.01 + 1)) END PROGRAM MAIN