program main real::D,P read*,D,P print*,floor(D+D*P*0.01+1.0e-8) end program main