Program n1;
var a: array [1..5,1..5] of integer;
i,j, pr,min,min_ind:integer;
begin
writeln('Элементы матрицы');
for i:=1 to 5 do
for j:=1 to 5 do
Readln(a[i][j]);
pr:=1;
for i:=1 to 5 do pr:=pr*a[i][1];
min:=pr;
min_ind:=1;for i:=2 to 5 do begin
pr:=1;
for j:=1 to 5 do pr:=pr*a[j][i];
if(pr min:=pr;
min_ind:=i;
end;
end;writeln('Минимальный столбец под номером ', min_ind);end.