PROGRAM Multiples_of_Five
    IMPLICIT NONE
    INTEGER :: i, num(10), N = 0
    READ *, num
    DO i = 1,10
        IF (num(i) < 0) CYCLE
        IF (MOD(num(i),5) == 0) N = N+1
    ENDDO
    PRINT *, N, ' of the numbers are multiples of 5'
END PROGRAM Multiples_of_Five