real v(10),sum
integer n
open(10,file="test6.in")
read(10,*) n
read(10,*)(v(i),i=1,n)
sum=0.
do i=1,n
sum=sum+v(i)
enddo
print*,"sum=",sum
stop
end