метод Жорданна-Гауса

[Lyusinda]

Здравствуйте!Подскажите, пожалуйста,как изменить задачу, чтобы при наборе данной матрицы - был результат - метод не применим либо не существует, чтоб не считала корни программа., матрица 3 на 3 : a: -1,-2,1; b: 2,4,0; c: 4,8,1; d: 5,1,0

 a  b   c    d
-1  2   4    5 
-2  4   8    1        d - свободные члены
 1   0  1     0

Program zadacha;
uses  crt;
const
  e = 0.000001;
var
  a,a1: array[1..10, 1..10] of real;
  b,b1: array[1..10] of real;
  x: array[1..10] of real; 
  n, i, j, k: integer;z, r, g: real;
 
begin
  clrscr;
  write('Порядок: ');
  readln(n);
  writeln('Введите коэффициенты системы и свободные члены');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      write('a[', i, ',', j, ']= ');
      readln(a[i, j]);
      a1[i,j]:=a[i,j];
    end;
    Writeln('b[', i, ']= ');
    readln(b[i]);
  end;
  for k := 1 to n do { прямой ход Гаусса }
  begin
    for j := k + 1 to n do
    begin
      r := a[j, k] / a[k, k];
      for i := k to n do
      begin
        a[j, i] := a[j, i] - r * a[k, i];
      end;
      b[j] := b[j] - r * b[k];
    end;
  end;
  for k := n downto 1 do { обратный ход Гаусса }
  begin
    r := 0;
    for j := k + 1 to n do
    begin
      g := a[k, j] * x[j];
      r := r + g;
    end;
    x[k] := (b[k] - r) / a[k, k];
  end;
  writeln('Корни системы:');
  for i := 1 to n do
    write('x[', i, ']=', x[i]:0:2, '   ');
  writeln;
  readln;
end.

[p51x]

самое первое, что напрашивается (раз вы не применяете типичные модификации с выбором), то проверять, что очередной "знаменатель" будет равен 0

[Lyusinda]

Что это значит?