gaus(a)
Func

	Local k,i,w,x,wierszy,kolumn
	colDim(a)->kolumn
	rowDim(a)->wierszy

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

	aT->a
	newMat(wierszy,1)->x
	
	For i,0,wierszy-1,1
		a[kolumn,wierszy-i]/(a[kolumn-1-i,wierszy-i])->x[wierszy-i,1]
		a[kolumn] .- a[kolumn-1-i].*x[wierszy-i,1]->a[kolumn]
		a[kolumn-1-i].*0->a[kolumn-1-i]
	EndFor
	
	Return x
EndFunc