Writeln('уравнение №', j)

for i:=1 to n do

Begin

writeln(' a', i, ', ', j, ' =');

read(a[i,j]);

end;

writeln('свободный коэффициент');

read(b[j]);

end;

{прямой ход метода}

for i:=1 to n do {цикл отсчитывает шаги прямого хода метода}

Begin

aii:=a[i,i]; {сохранения значения ведущего элемента}

{преобразование ведущей строки}

for j:=i to n do

a[j,i]:=a[j,i]/aii;

b[i]:=b[i]/aii;

{преобразование строк, под ведущей}

for p:=i+1 to n do

Begin

akk:=a[i,p];

for j:=1 to n do

a[j,p]:= a[j,p]-a[j,i]*akk;

b[p]:=b[p]-b[i]*akk;

end;

end;

Следует обратить внимание на то, что данная программа, как в прочем и любые другие программы, состоит из отдельных частей. Каждая из этих частей выполняет определённую задачу, поэтому каждая из них может рассматриваться как отдельная программа. Такой подход упрощает разработку и отладку программы.