Pmin for to do begin for to do begin end if then Pmin else if Pmin the

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
Pmin:=1;
for j:=1 to n do
begin
p:=1;
for i:=1 to n do
begin
p:=P*a[i,j];
end;
if j:=1 then Pmin:=p else
if Pmin>p then Pmin:=p;
b[j]:=p;
end;
writeln('minimal proizvedenie=',Pmin);
for j:=1 to n do
if b[j]=Pmin then
str(Pmin,s);
writeln(s);
end.