<u>PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ArrRandom(5,0,15).Println.Aggregate(1,(p,q)->p*q).Println
end.
<u>Пример</u>
6 13 7 2 7
7644
0...65535 друг сказал) если не правильно извини, но он вродь хорош в информе
Внутренний дефект, Годная продукция, Внешний вид