Kolos_Aga

a = [1 9 17 25 2 4 6 8;3 11 19 27 10 12 14 16;5 13 21 29 18 20 22 24;
7 15 23 31 26 28 30 32; 1 3 5 7 1 0 0 0;9 11 13 15 0 1 0 0;
17 19 21 23 0 0 1 0;25 27 29 31 0 0 0 1]
VectorMin = sum(a)
min = VectorMin(1)
minIndex=1
for i=2:8
  if minV(i)<min
    min = VectorMin(i)
    minIndex = i
  endif
endfor
a(minIndex, :) = [];
%disp(a)
for i=1:3
  for j=1:3
    a(i,4-j)=0
  endfor
  a(i,i)=1
endfor
A=a;
A(:, 2) = [];
disp(A);
X = linsolve(A,a(:,2))