PROGRAM Y9008
    INTEGER(8)::N,I
    INTEGER(8)::RESULT=0
    INTEGER(8),ALLOCATABLE,DIMENSION(:)::A
    
    READ(5,*)N
    ALLOCATE(A(N))
    READ(5,*)(A(I),I=1,N)
    
    DO I=1,N
        RESULT=RESULT+A(I)
    END DO
    
    PRINT'(I0)',RESULT
END PROGRAM Y9008