program ch0503
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 ch0503