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