implicit none integer(8) K,S read(*,*) K read(*,*) S write(*,*) S*100/(100-K) end