scilab

clear;
clc;
 N= input ("digite um numero: ");
matriz=[ N;N];
vetor=[6];
flag=0;
for i=1:1:N;
    for j=1:1:N;
        matriz(i,j) = input("digite ");

     end
end

for i=1:1:N;
    for j=1:1:N;
      mprintf(" %d",matriz(i,j));
    end
     mprintf("\n");
end

for i=1: 1: N;
    if matriz(i,i) <> 1 then
        vetor(1)= 0;
        flag=1;
    end
end
    if flag==0 then
        vetor(1)=1;
        end

flag=1;

for i=1: 1: N;
	for j=1: 1: N;
        if i <> j then
            if matriz(i,j) <> matriz(j,i) then
                flag=0;
                vetor(2)=0;
            end
        end
    end
end

if flag==1 then
    vetor(2)=1;
end

flag=1;

for i=1: 1: N
	for j=1, k=0: 1: N
		if matriz(i,j) == 1 then
				k=k+1;
		end
        if k > 1 then
			vetor(3)=0;
            flag=0;
		end
	end
end

if flag==1 then
    vetor(3)=1;
end