program ff;{заголовок программы}
var {описание раздела переменных}
   A:array[1..100,1..100] of integer;{задание массива}
    i,j,n:integer;         {доп. переменные}
    proizv,min,stolb:integer; {доп. переменные}
 
begin  {начало программы}
write ('Vvedite razmer massiva 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 vvedennyy vami massiv A: ');    {вывод элементов массива на экран}
for i:=1 to n do begin writeln;             {вывод элементов массива на экран}
for j:=1 to n do write (A[i,j]:3,' '); end; {вывод элементов массива на экран}
 
min:= A[1,1];      {изначально MIN элемент задаём первому элементу матрицы}
stolb:=0;          {изначально номер столбца задаём первому элементу матрицы}
for i:=1 to n do                                  {находим минимум и номер этого столбца}
for j:=1 to n do                                   {находим минимум и номер этого столбца}
if A[i,j]<=min then begin min:=A[i,j]; stolb:=j;  end;{находим минимум и номер этого столбца}
 
proizv:=1; {изначально обнуляем произведение}
for i:=1 to n do proizv:=proizv*A[i,stolb]; {перемножаем все элементы нужного нам столбца}
writeln;
writeln('Proizvedenie ',stolb,' stolbca = ',proizv); {результат выводим на экран}
readln;
end.