Метод Крамера

[miha815]

Здравствуйте уважаемые специалисты.
Помогите студенту пожайлуста. Я начинающий.

Решить методом Крамера. Протестировать решение с помощью программы.(на языке Pascal):
методом Крамера я решил, а программу написать немогу
|3 2 4| |х1| |0|
|2 1 1| |х2| = |0|
|7 0 1| |х3| |0|
Главный определитель системы получился= -15,
а все дополнительные= 0 (нули)
и значения всех неизвестных по формулам Крамера для решения системы n линейных уравнений
с n неизвестными тоже (нули).
Может я решил не правильно? Но все делал по формулам.
Некоторые говорят смысла нет составлять прогу, т.к. везде нули.
Но,согласно задания, решение нужно же протестировать!!!:confuse d:

[Mkabylov]

program kramer;
uses crt;
var
a,d:array[1..3,1..3] of integer;
b:array[1..3] of integer;
i,j,k:integer;
x1,x2,Y,t:real;
r:array[1..3] of real;
procedure anyk;
begin
for i:=1 to 3 do
for j:=1 to 3 do
x1:=(d[1,1]*d[2,2]*d[3,3]+d[1,3]*d[3,2]*d[2,1]+d[3,1]*d[1,2]*d[2,3]);
x2:=(d[1,3]*d[2,2]*d[3,1]+d[1,1]*d[2,3]*d[3,2]+d[3,3]*d[1,2]*d[2,1]);
Y:=x1-x2;
end;
procedure delta(k:integer);
begin
for i:=1 to 3 do
for j:=1 to 3 do
if j=k then d[i,j]:=b[i] else d[i,j]:=a[i,j];
end;
begin clrscr;
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
write(' a[',i,j,']=');
read(a[i,j]); end;
writeln; end;
for j:=1 to 3 do
begin
write('b[',j,']=');
readln(b[j]); end;
for i:=1 to 3 do
for j:=1 to 3 do
d[i,j]:=a[i,j];
anyk;
t:=Y;
delta(1);
anyk;
r[1]:=Y/t;
delta(2);
anyk;
r[2]:=Y/t;
delta(3);
anyk;
r[3]:=Y/t;
for i:=1 to 3 do
writeln('x',i,'=',r[i]);
end.