program qq;
const n = 10;
var ms:array[1..n] of integer;
i,mn:integer;
begin
mn:=1;
for i:= 1 to n do begin
write('введите ', i, ' число ');
readln(ms[i])
end;
for i:= 1 to n do
mn:=ms[i] * mn;
writeln('множество ',mn)
end.
Объяснение:
n это кол-во чисел, которые нужно перемножить
