real,allocatable::a(:)
	
	open(10,file="test1.in")
	read (10,*) n
	allocate(a(n))
	read(10,*)a
	
	sum=0.
	do i=1,n
	sum=sum+a(i)
	enddo
	print *,sum
	stop
	end