123

program FindXYZ
var
a,ct:  array[1..3,1..3] of extended;
b,x: array[1..3] of extended;
i,j: integer;

Begin
 for i:=1 to 3 do
  for j:=1 to 3 do
   readln(a[j,i]);
 for i:=1 to 3 do readln(b[i]);
 for i:=1 to 3 do
  for j:=1 to 3 do begin
    for i1:=1 to 3 do
     for j1:=1 to 3 do
      if not((i1=i)or(j1=j)) then begin
       s[c]:=a[j1,i1];
       inc(c);
      end;
    ct[j,i]:=(-1)*((i+j) mod 2)*(s[1]*s[4]-s[2]*s[3]);
   end;
  z:=0;
  for i:=0 to 2 do begin
    z:=z+a[(i mod 3)+1,1]* a[((i+1) mod 3)+1,2]* a[((i+2) mod 3)+1,3]- a[(i mod 3)+1,3]* a[((i+1) mod 3)+1,2]* a[((i+2) mod 3)+1,1];
 for i:=1 to 3 do begin
  x[i]:=0;
  for j:=1 to 3 do begin