program pro;
label 1;
var A:array [1..100,1..100] of integer;
    i,j,n:integer;
    z:integer;
 
function proverka(z:integer):boolean;
var i,j:integer;
    rezult: boolean;
begin
rezult:=false;
for i:=1 to n do
for j:=1 to n do
if (i+j-1=n) and (A[i,j]=z) then rezult:=true;
proverka:=rezult;
end;
 
 
begin
write('Размер Матрицы = '); readln(n);
 
for i:=1 to n do
for j:=1 to n do begin write ('A[',i,',',j,']='); readln (A[i,j]); end;
writeln;
write ('введённый массив: ');
for i:=1 to n do begin writeln;
for j:=1 to n do write (A[i,j]:3,' '); end;
1:writeln;
write('Введите ЗАДАННЫЙ чётный элемент: '); readln(z);
if odd(z) then begin write('ERROR: вы ввели нечётное '); goto 1;  end;
 
writeln; writeln('Ответ проверки: ');
if proverka(z)=true then writeln('ВЕРНО') else  writeln('НЕ ВЕРНО');
 
readln;
end.