INTEGER A,B,C READ(*,*) A,B IF(MOD(B,A).EQ.0) THEN C=B/A ELSE C=(B/A)+1 END IF WRITE(*,*) C STOP END