Произведение

function f(x: real): real;
begin
  f := sin(x) //вместо этой строки опишите свою функцию f(x)
end;
 
function prod(const w: array of real): real;
var
  p: real;
  i: integer;
begin
  p := 1;
  for i := low(w) to high(w) do p := p * f(w[i]);
  prod := p
end;

function prod(const w: array of real): real;
  function f(x: real): real;
  begin
    f := sin(x) //вместо этой строки опишите свою функцию f(x)
  end;
var
  p: real;
  i: integer;
begin
  p := 1;
  for i := low(w) to high(w) do p := p * f(w[i]);
  prod := p
end;