program main
    implicit none
    integer :: N, i
    real, allocatable :: A(:)

    read *, N

    ! print *, 'N = ', N
    allocate(A(N))
    do i = 1, N 
        read *, A(i)
        ! print *, 'i = ', i, 'A(i) = ', A(i)
    end do

    ! print *, "Heloo"
    print *, sum(A)
    deallocate(A)
end program main