program PascalGuru;
var A:array[1..100,1..100] of integer; {переменная массива}
    i,j,n,pr:integer; {переменные для циклов}
 
begin
write ('Vvedite razmer matricy A: ');
readln (n);
 
for i:=1 to n do
for j:=1 to n do begin
write ('A[',i,',',j,']='); readln (A[i,j]); end;
 
write ('Vot vvedennai vami matrica A: ');
for i:=1 to n do begin writeln;
for j:=1 to n do write (A[i,j]:8); end;
 
pr:=1;
for i:=1 to n do
for j:=1 to n do
    if (i=j) or (i+j-1=n) then pr:=pr*A[i,j];
 
writeln;
writeln('Proizvedenie: ',pr);
 
readln;
end.