program T1 implicit none integer::n(500000),i,b read(*,*)b do i=1,500000 if(b==i-1)then exit else read(*,*)n(i) endif end do write(*,*)sum(n(1:b)) end program T1