Do i=1,10
s(i)=0
do j=1,10
S(i)=s(i)+A(i,j)*X(i)
write(*,*)s(i)