Найти произведение элементов,кратных 4 в массиве в (15)

begin
  var a:=ArrRandom(15,1,99); a.Println;
  Writeln('Р4=',a.Where(x->x mod 4=0).Aggregate(1,(x,y)->x*y))
end.


36 55 99 11 96 46 91 53 64 85 19 55 7 15 34
Р4=221184