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

    read *, N

    ! print *, 'N = ', N
    allocate(A(N))
    read *, A(1:N)

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