Program 3.2. 오염지수

PROGRAM Pollition
!---------------------------------------------------------------------------------
!	Program that reads 3 pollution levels, calculates a pollution
!	Index as their integer average, and then displays an appropriate
!	air-quality message. Identifiers used are:
!		Level_1, Level_2, Level_3	: The three pollution levels
!		Cutoff								: a cutoff value that distinguishes between hazardous
!												and safe conditions (parameter)
!		Index								: The three pollution levels and the cutoff value
!	Input			: The three pollution levels and the cutoff value
!	Constant	: The cutoff value (parts per million)
!	Output		: The pollution index and a "safe condition" message if
!					this index is less than the cutoff value, otherwise a
!					"hazardous condition" message
!---------------------------------------------------------------------------------

	IMPLICIT NONE
	INTEGER :: Level_1, Level_2, Level_3, Index
	INTEGER, PARAMETER :: Cutoff = 50
	
	! Get the 3 pollution readings
	PRINT *, "Enter 3 pollution readings (parts per million):"
	READ *, Level_1, Level_2, Level_3
	
	! Calculate the pollution index
	Index = (Level_1 + Level_2 + Level_3) / 3
	
	! Check if the pollution index is less than the cutoff and
	! display an appropriate air-quality message
	IF (Index < Cutoff) THEN
		PRINT *, "Safe condition"
	ELSE
		PRINT *, "Hazardous condition"
	END IF
	
	pause
End PROGRAM Pollition