Помогите решить задачу

[Аретм]

Нужна помощь в решении. На языке pascal.

[Streletz]

Наработки?

[Stilet]

const n=2;
var i:integer; a,c:array[1..n] of double; min,amin:Double;

 function Pe(m:integer):double; 
 var j:integer; res:Double;
 begin
  res:=a[1]+c[1]; 
  for j:=2 to m do res:=res*(a[j]+c[j]); 
  Pe:=res; 
 end;

begin
 for i:=1 to n do begin 
  a[i]:=50-random(100); write(a[i]:10);
  c[i]:=50-random(100); writeln(c[i]:10);
 end;
 min:=Pe(1);
 For i:=2 to n do begin
  amin:=Pe(i);
  if amin<min then min:=amin;
 end;
 writeln('Меньшее ',min); readln;
end;

Только не проверял.