Program proizv;
uses crt;
type
Tmatr = array [1 .. 20, 1 .. 20] of integer;
var
n, i, j, pr: integer;
a: Tmatr;
procedure Prz(a: Tmatr; n: integer; var pr: integer);
begin
for j := 1 to n do
begin
pr := 1;
for i := 1 to n do
begin
if i mod 2 = 0 then
pr := pr * a[i, j];
end;
writeln('Proizv v stb', j, '=', pr);
end;
end;
begin
clrscr;
write('n=');
readln(n);
randomize;
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := random(10) + 1;
write(a[i, j]:3);
end;
writeln;
end;
readln;
Prz(a, n, pr);
readln;
end.