Решение СЛАУ методом Гаусса - Pascal ABC (12996)

Формулировка задачи:

Здравствуйте, у меня такой вопрос? дана матрица 3 на 3 и столбец свободных членов. Каким образом можно сделать проверку? Заранее спасибо! writeln('Проверка в соответствии с матрицей B: ');

for i:=1 to n do
   begin 
    for j:=1 to n do  
      b1[i]:=b1[i]+a1[i,j]*x[j];

попробовал так написать, просто выдаёт нули в проверке.

Решение задачи: «Решение СЛАУ методом Гаусса»

Листинг программы

for i:=1 to n do
 begin
  y[i]:=0;
  for j:=1 to n do
  y[i]:=y[i]+a[i,j]*x[j];
  writeln('y[',i,']=',y[i]:3:0);
  if abs(b[i]-y[i])>t then f:=false;
 end;
if f then writeln('Система решена верно!')
else writeln('Система решена не верно!');

Объяснение кода листинга программы

В цикле for i:=1 to n do начинается итерация по переменной i от 1 до n.
y[i]:=0; - присваиваем переменной y[i] значение 0.
for j:=1 to n do - начинается вложенный цикл по переменной j от 1 до n.
y[i]:=y[i]+a[i,j]x[j]; - вычисляем значение y[i] как сумму y[i] и a[i,j]x[j].
writeln('y[',i,']=',y[i]:3:0); - выводим значение y[i] с разделителем 3 и нулями после него.
if abs(b[i]-y[i])>t then f:=false; - проверяем условие: если abs(b[i]-y[i]) больше t, то устанавливаем f в false.
end; - завершаем внутренний цикл.
if f then writeln('Система решена верно!') - если предыдущее условие истинно, то выводим Система решена верно!.
else writeln('Система решена не верно!'); - иначе выводим Система решена не верно!.