PROGRAM ch0803
IMPLICIT NONE
INTEGER :: I,J,K
REAL :: Answer
  I = 5
  J = 2
  K = 4
  Answer = I / J * K
  PRINT *,I
  PRINT *,J
  PRINT *,K
  PRINT *,Answer
END PROGRAM ch0803