program t1 integer::n,a(500000) read(*,*)n read(*,*)a(1:n) write(*,*)sum(a(1:n)) end program t1