integer(8) A
integer(8),allocatable :: x(:)
read(*,*) n
allocate (x(n))
A=0
do i=1,n
    read(*,*) x(i)
    A = A + x(i)
end do
write(*,*) A
end