Составить метод и написать программы нахождения творенья чисел, модуль которых меньше

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

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

begin

 var a := ReadSeqInteger(20).Where(t -gt; Abs(t) lt; 10)

     .Aggregate(BigInteger(1), (p, q)-gt; p * q).Println

end.

Пример

9 9 9 9 9 9 9 9 9 9 9 9 9 -9 -9 -9 -9 9 9 9

12157665459056928801

var a,p,i:integer;

begin

p:=1;

for i := 1 to 20 do

begin

read(a);

if (abs(a) lt; 10)

then p := p * a;

end;

write(p);

end.