!
      PROGRAM P33
!
!     Simple loop with IF-THEN-ELSE
!
      IMPLICIT NONE
      INTEGER :: I,J
      REAL :: SUM,COUNT,AVE
!
      PRINT *, 'This is Program >> P33  - IF-THEN-ELSE'
!
!     READ DATA
!
      READ *,I
!
      DO J=1,I
          READ *,SUM ,COUNT
          IF(COUNT  ==  0.0) THEN
             PRINT *,'COUNT ZERO'
             STOP
          ELSE
             AVE=SUM/COUNT
             PRINT *,'SUM=', SUM
             PRINT *,'COUNT=', COUNT
             PRINT *,'AVERAGE=', AVE
          END IF
      END DO
      STOP
      END PROGRAM P33