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

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

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