Octave / SLAU2

try
input = fopen('input.txt','rt');
feof(input);
catch
disp('Файл не существует');
return
end_try_catch
kolstr = 1;
while ~feof(input)
i = fgetl(input);
try
m = sscanf(i,'%c');
catch
disp('Файл пуст');
return;
end_try_catch
for j = 1:size(m,2)
if (!isdigit(m(1,j)) && !isspace(m(1,j)))
disp('Данные другого типа');
return;
endif
endfor
try
m = sscanf(i,'%d');
if(size(m,1) > 1)
M(kolstr,:) = m;
else
disp('Разное количество чисел в строках');
return;
endif
catch
disp('Разное количество чисел в строках');
return;
end_try_catch
kolstr = kolstr + 1;
endwhile
if(size(M,1) != size(M,2) - 1)
disp('Кол-во стр не равно кол-во столб + 1');
return;
endif
b = M(:,size(M,1) + 1);
M(:,size(M,1) + 1) = [];
X = M \ b;
disp(X)
fclose(input);