Дана последовательность целых положительных чисел. Отыскать творение только тех чисел,

PascalABC.NET 3.4.2, сборка 1859 от 08.11.2018

Внимание! Если программка не работает, обновите версию!

begin

 var a := ArrRandom(ReadInteger('Число частей ='), -99, 99);

 a.Println;

 var m := ReadInteger('m =');

 a.Where(t -gt; t gt; m).Aggregate(BigInteger(1), (p, q)-gt; p * q).Println

end.

var

i:integer;

proizv,o:real;

m,n:real;

begin

proizv:=1;

i:=0;

read(m);

read(n);

while(ilt;n) do

begin

read(o);

if ogt;m then proizv:=proizv*o;

i:=i+1;

end;

writeln(proizv);

end.