INTDIV3.F95

	PROGRAM INTDIV3
!
!  Purpose: To demonstrate integer division using Fortran
!
	IMPLICIT NONE
	INTEGER:: I,J	! Used for holding two integers
	REAL:: X,Y,Z	! Used for holding the two integers converted
                        ! to real and the result.
!
	WRITE(*,*)'Enter an integer'
	READ(*,*)I
	WRITE(*,*)'Enter a second integer'
	READ(*,*)J
!
	Y=I
	Z=J
	X=Y/Z
	WRITE(*,*)'The ratio of these two integers is ',X
	STOP
	END PROGRAM INTDIV3