A=[2, 1, -2; 4, 1, 2; -2, 0, 1];
 Y=[-1;15;-1];


 function zad77(A,Y)

 [Aw, Ak]=size(A);
 [Yw, Yk]=size(Y);

 X=zeros(Aw,1);

 W=zeros(1,Ak);

 if Aw==Ak
   detA=det(A);
     if detA!=0

       temp = zeros(Aw, Ak);
       temp = A;
       for i=1:Ak
         for j=1:Aw
           temp(j,i) = Y(j,1);
         endfor
       W(i) = det(temp)/detA;
       temp = A;
       endfor

       disp("Wartosci A wynosza: ");
       disp(A);
       disp("Wartosci Y wynosza: ");
       disp(Y);
       disp("-------------------");
       disp("Wartosci X wynosza: ");
       disp(W);

       disp("Sprawdzenie: ");
       disp(inv(A) * Y);

     else
      disp("Podany uk�ad rownan nie jest oznaczony (wyznacznik z macierzy wspolczynnikow rowny jest 0)");
     end

 else
   disp("Podano nieprawidlowe wartosci: macierz wspolczynnikow nie jest kwadratowa lub podane macierze maja rozne liczby wierszy");
 end
 endfunction

 zad77(A,Y);