function X=nazwisko_i(A,B,X0,DOK)

[w,k] = size(A);

for i=1:w

B(i) = B(i)./A(i,i);
if(B(i)>0)
B(i)=-B(i);
end
A(i,:) = A(i,:)./A(i,i);
A(i,i) = 0;
A(i,:) = A(i,:)*(-1);

end

X = A*X0 + B;

A
B
X0

while(abs(X0-X)>DOK)

X0=X;
X = A*X0 + B;

end