PROGRAM DOMACI2

DIMENSION A(100)

READ *, N

READ *, (A(I), I=1, N)

READ *, M

READ *, K

REZ= REZULTAT (K,A,M,N)

PRINT *, REZ

END 

FUNCTION REZULTAT (K,A,M,N)

  DIMENSION A(100)

  REZULTAT=0

DO 10     I=M,K,N

      REZULTAT=REZULTAT+A(I)

10 CONTINUE

  RETURN

  END