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