dimension a(3,3)c data a/1,2,3,4,5,6,7,8,9/ read(*,*)a sum=0 do 5 i=1,3 sum=sum+a(i,i)5 continue sum=sum+a(1,3)+a(3,1) write(*,*)sum pause end
