Ввести массив целых чисел,который в заранее не известен
Ввод чисел заканчивается,когда сумма введенных чисел становится больше заданного числа
Получить произведение элемента производного массива.

Тут массив вообще не нужен=))

constn=10000;varb:array[1..n] of integer;a,s,p,i:integer;beginreadln(a);i:=1;p:=1;s:=0;while s<=a dobeginreadln(b[i]);s:=s+b[i];p:=p*b[i];i:=i+1;end;writeln('Произведение элементов = ',p);end.

VarA,S,P,M:real;BeginWriteLn('Введи число');ReadLn(M);S:=0;P:=1;WriteLn('Введи массив чисел');RepeatReadLn(A);S:=S+A;P:=P*A;Until S>M;WriteLn('Произведение элементов равно ',P);WriteLn('Сумма элементов равна ',S);End.