implicit none real(8) d,p,s integer(8) e read(*,*) d,p s=(p/100.0)*d e=d+s write(*,*) e end