dim a(5,5)sum=0suminn=0for i=1 to 5for j=1 to 5sum=sum+a(i,j)next jnext ifor i=2 to 4for j=2 to 4suminn=suminn+a(i,j)next jnext iprint sum, suminn