codigo terminado do scilab

clear;
clc;
N= input ("Digite o tamanho da matriz: ");
matriz=[ N;N];
vetor=[6];
flag=0;
k=0;

for i=1:1:N;
    for j=1:1:N;
        matriz(i,j) = input("Digite os numeros da matriz: ");

     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
     k=0;
	for j=1: 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

flag=1;

for i=1: 1: N
    k=0;
	for j=1: 1: N

		if matriz(j,i) == 1 then
				k=k+1;
		end
        if k > 1 then
			vetor(4)=0;
            flag=0;
		end
	end
end

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

flag=1;

for i=1: 1: N
    k=N;
	for j=1: 1: N
		if matriz(i,j) == 1 then
				k=k-1;
		end
	end

    if k == N then
			vetor(5)=0;
            flag=0;
	end
end

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

flag=1;

for i=1: 1: N
    k=N;
	for j=1: 1: N
		if matriz(j,i) == 1 then
			k=k-1;
		end
	end

    if k == N then
		vetor(6)=0;
        flag=0;
	end
end

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

for i=1: 1: 6
    mprintf("%d ",vetor(i));
end