Program Metod_Gaussa;  
const
  R=6;                  
  A:array [1..R,1..R+1] of extended =
    (( 2.1,  1.3,  -5.2,   1.4,  3.3,  4.6,  14.35),
     ( 6.3, -0.4, -14.4,   7.8, 14.0, 21.0,  90.95),
     ( 2.1, -3.0,  -1.7,   9.2,  7.8, 24.6, 129.28),
     ( 4.2, -1.7,  -6.9,  10.6, 11.1, 29.2, 143.63),
     (-2.1,  3.0,  -0.6, -13.4, -0.5,  0.0, -65.30),
     ( 4.2,  2.6, -15.0,  -5.6, 13.5,  0.6, -43.71));
var
  i,j,k:byte;
  X:array [1..R] of extended;
  C:extended;
BEGIN
writeln;
for i:=1 to R-1 do
  begin
   k:=i;
   for j:=i+1 to R do
    if abs(A[j,i])>abs(A[k,i]) then
     k:=j;
   if k<>i then
    for j:=i to R+1 do
     begin
      C:=A[i,j];
      A[i,j]:=A[k,j];
      A[k,j]:=C;
     end;
   for j:=i+1 to R do
    begin
     C:=A[i,i]/A[j,i];
     for k:=i+1 to R+1 do
      A[j,k]:=A[j,k]*C-A[i,k];
    end;
  end;
for i:=R downto 1 do
  begin
   C:=0;
   for j:=i+1 to R do
    C:=C+A[i,j]*X[j];
   X[i]:=(A[i,R+1]-C)/A[i,i];
  end;
for i:=1 to R do
  writeln('X',i,'=',X[i]:10:6);
writeln;
END.