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