implicit none integer(8) s,f,c read(*,*) s,f c=s/f c=int(c)+1 write(*,*) c end