program T1 implicit none real::d integer::p read(*,*)d,p write(*,*)int(d+((p*d)/100)) end program T1