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.