A=[ 10.000 2.430 -1.250 -1.150 ;
    -0.240 5.100 1.670 -0.480 ;
    3.900 1.240 -9.550 -1.530 ;
    1.480 0.460 0.230 -4.530 ] ;

B=[ -45.170 ;
    -10.980 ;
    -2.680 ;
    -18.820 ] ;


nr=rows(A);


b=false;

for i=1;nr
sum=0;
for j=1;nr
if i != j
sum+=abs(A(i,j));
endif
if abs(A(i,i))<sum
b=true;
endif
endfor
endfor
if b==true
 printf("warunek zbieznosci niespelniony\n");
else
printf("warunek zbieznosci spelniony\n");
endif