найти произведение элементов, кратных 3 в массиве, заданном датчиком случайных чисел на интервале( -28,27). Размер производной.

а можно полностью ответ и решение

//PascalABC.NET//Версия 3.3, сборка 1634beginvar a:=ArrRandom(10,-27,26).Println;write(a.Where(x->x mod 3=0).Aggregate(Real(1),(x,y)->x*y));end.