PROGRAM ch0802 IMPLICIT NONE REAL :: A,B,C INTEGER :: I A = 1.5 B = 2.0 C = A / B I = A / B PRINT *,A,B PRINT *,C PRINT *,I END PROGRAM ch0802