function y=exm1(A)
[m,n]=size(A);
if m~=n;
error( 'An input matrix should be n-by-n.' )
end

r=rank(A);
if r==m
disp( 'This matrix is nonsigular' )
else
disp( 'This matrix is sigular' )
end