program gauss;

uses windos, wincrt;

var radky, sloupce,i,j,k:integer;
    nas : real;
    matice : array[1..1 0,1..10] of real;

begin
  write('radky: '); readln(radky);
  write('sloupce: '); readln(sloupce);
  for i:=1 to radky do
    for j:=1 to sloupce do
      readln(matice[i][j]);

  for i:=1 to radky-1 do
    for j:=i+1 to sloupce do begin

      for k:=1 to sloupce do begin
        nas := matice[j,k]*(-matice[i,i]/matice[j,i]);
        matice[j,k] := matice[j,k]+nas;
      end;
    end;


end.