program gauss;

const rozmiar = 8;
type zakres   = 1..rozmiar;
type tablica  = array[zakres,zakres] of real;
var  tab : tablica;

procedure generuj(var t : tablica);
var i, j : zakres;
begin
   for i := 1 to rozmiar do
	  for j := 1 to rozmiar do
		 t[i,j]:=(random-0.5)*200
end; { generuj }

procedure drukuj(var t : tablica);
var i, j : zakres;
begin
   for i := 1 to rozmiar do
   begin
	  for j := 1 to rozmiar do
		 write(t[i,j]:8:3);
	  writeln
   end
end; { drukuj }

procedure gauss (var t : tablica);
var i,j	: zakres;
   procedure elim(k,l : zakres; w : real);
   var i : integer;
   begin
	  for i := 1 to rozmiar do
		 t[l,i] := t[l,i]+w*t[k,i]
   end; { elim }
begin	
   for i := 1 to rozmiar do
	  for j := i+1 to rozmiar do
		 elim(i,j,-t[j,i]/t[i,i])
end; { gauss }
begin
   randomize;
   generuj(tab); 
   drukuj(tab);
   writeln;
   gauss(tab);
   drukuj(tab) 
end.