program T01 implicit none real::a,b read(*,*)b,a if(mod(b,a)==0)then write(*,*)int(a/b) else write(*,*)int((a/b)+1) end if end program T01