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