1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
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); end.