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);