! PROGRAM P31 ! ! ! Example to show use of logical variables ! IMPLICIT NONE INTEGER :: WEIGHT, AGE LOGICAL :: HEAVY,MINOR ! ! PRINT *, 'This is Program >> P31 - Logical Relations' ! ! READ * ,WEIGHT,AGE HEAVY=WEIGHT > 90 MINOR=AGE < 18 PRINT *,WEIGHT,HEAVY PRINT *,AGE,MINOR STOP END PROGRAM P31