jordan(a)
Func

	Local k,i,w,x,wier,kol
	colDim(a)->kol
	rowDim(a)->wier

	For k,1,wier,1
		For i,1,wierszy,1
			If i=k
				Cycle
			
			-a[i,k]/(a[k,k]) -> w
			a[i] + a[k].*w -> a[i]
		EndFor
	EndFor

	newMat(wier,1) -> x
	
	For i,1,wierszy,1
		a[i,kolumn]/(a[i,i]) -> x[i,1]
	EndFor

	Return x
EndFunc