pasta

A=[1 2 3 4 5;1 2 3 4 5;1 2 3 4 5;1 2 3 4 5;1 2 3 4 5;]
n=length(A);
j=length(A);
s=0;

for i=1:n
  while(j>0)

  if i<=j
    s=s+A(i,j)
  endif
  j=j-1;

  endwhile
endfor