Program 2.Exercise5

PROGRAM Demonstration
	IMPLICIT NONE
	
	INTEGER :: I, J
	REAL :: X, Y
	
	X = 37
	I = INT(X / 5)
	PRINT *, X, I
	READ *, X, I
	PRINT *, " X =", X, " I =", I
	READ *, Y
	READ *, J
	PRINT *, Y
	PRINT *, J

	pause
End PROGRAM Demonstration