      COMMON A(300)

      WRITE(*,90)

   5  WRITE(*,91)
      READ(*,92) N
      IF(N.LE.10.OR.N.GT.300) GOTO 5

      DO 10 I=1,N
      READ(*,*) A(I)
  10  CONTINUE

      S=A(1)
      DO 20 I=2,N
  20  IF(I/2*2.NE.I) S=S+A(I)

      CALL PROIZVOD (N,P)

      IF(P.LT.S) THEN
	 WRITE (*,93) P
      ELSE
	 WRITE (*,94) S
      END IF

      STOP

  90  FORMAT(/3X,'PROGRAM ZA IZRACUNAVANJE SUME ELEMENATA NIZA NA'/
     1	      3X,'NEPARNIM MJESTIMA I PROIZVODA NA PARNIM MJESTIMA'/)
  91  FORMAT(/3X,'UNESITE N'/)
  92  FORMAT(I3)
  93  FORMAT(/3X,'PROIZVOD CLANOVA NA PARNIM MJESTIMA = ',F8.2)
  94  FORMAT(/3X,'SUMA CLANOVA NA NEPARNIM MJESTIMA = ',F8.2)

      END



      SUBROUTINE PROIZVOD(N,P)

      COMMON A(300)

      P=1.

      DO 10 I=1,N
  10  IF(I/2*2.EQ.I) P=P*A(I)

      RETURN

      END
