вычисление произведения, вычисление произведения Опции

[marwell]

Напишите подпрограмму вычисления произведения вида (прикрепил) где u – заданный вектор, N – верхний предел интегрирования.
т.е. U и N просто числа?

[marwell]

не пойму, что я не так делаю...

var N,i,x:integer;
    U:array [1..100] of integer;
    function mas(U:array of integer):integer;
begin
for i:=1 to N do
x:=x*(1-sqr(U[i]));
end;
begin
x:=1;
write('введите N = ');
readln(N);
randomize;
for i:=1 to N do
U[i]:=2+random(4);
for i:=1 to N do
write(U[i],'  ');
mas(U);
writeln ('произведение равно = ',x);
readln;
end.

результат неверный...