На паскале. подскажите, где ошибка? var a: array[1..6,1..6] of integer; x: array[1..6] of byte; i,j,n: byte; sum: longint; begin write('введите кол-во строк n: '); readln(n); sum: =0; for i: =1 to n do begin for j: =1 to n do begin write (vvedite matricy a[i,j]: ') ; write(a[i,j]: 4); sum: =sum+a[i,j]; end; if (a[i,i])> (a[i,j]) then x[i]: =0 else x[i]: =1; writeln; end; writeln ('полученный массив'); for i: =1 to n do write(x[i]: 2); writeln; writeln('сумма матрицы = ', sum); readln; end.

Если в синтаксисе, то в строке write (vvedite matricy A[i,j]: ') ; после первой открывающей скобки пропущен апостроф.

Прикрепил исправление в виде скриншота и текстового документа с программой.
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.