<em>// PascalABC.NET 3.2, сборка 1370 от 24.12.2016</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
begin var a:=ArrRandomReal(ReadInteger('n='),-99,99); a.Println; var x,y:real; Write('Введите границы интервала для произведения: '); Read(x,y); var p:=a.Where(q->(q>=x) and (q<=y)).Aggregate(1.0,(x,y)->x*y); Writeln('p=',p) end.