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