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