Var 
  A:array[1..6,1..6] of integer;
  X:array[1..6] of byte;
  i,j,n:byte;
  sum:longint;
  
Begin
    
 writeln('Введите кол-во строк N: ');
 readln(n);
 sum:=0;
 writeln ('Введите матрицу A: ') ;
   For i:=1 to n do
   Begin
     For j:=1 to n do
     Begin  
       writeln('Введите элемент номер ',i,':',j);
       readln(A[i,j]);     
       sum:=sum+A[i,j];
       if (A[i,i])>(A[i,j]) then x[i]:=0
          else x[i]:=1;
          writeln;
     End;   
   End;
    writeln ('Полученный массив');
    For i:=1 to n do   
    write(X[i]:2);  
 writeln;
 writeln('Сумма всех элементов матрицы = ', sum);
 readln;
End.