ради бога сделайте !!!!!!!!!!!!!!!!!

===== PascalABC.NET =====

begin

 var a:= ArrRandom(60, -150, 100);

 a.Println;

 var (s, p) := (0, BigInteger.One);

 foreach var m in a do

   if (m > 10) and (m <= 30) then

   begin

     s += m;

     p *= m

   end;

 Println('Сумма', s, '  произведение', p)

end.