Дан массив из 7 частей. Отыскать творение четных чисел и кол-во

// PascalABC.NET 3.2, сборка 1374 от 10.01.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var a:=ReadArrInteger(7);
  Write('Творение четных: ',
    a.Where(x-gt;x.IsEven).Aggregate(1.0,(x,y)-gt;x*y),
    ', количество нечетных: ',a.Where(x-gt;x.IsOdd).Count)
end.

Пример
-15 8 42 11 95 118 -27
Творение четных: 39648, количество нечетных: 4

include lt;iostreamgt;

using namespace std;

int main()
 int a[7];
 int k = 0, p = 1;
 for(int i = 0; i lt; 7; i++)
   cin gt;gt; a[i];
   if(a[i] % 2 == 0) p*=a[i];
   else k++;
 
 cout lt;lt; "Творенье: " lt;lt; p lt;lt; endl lt;lt; "Количество: " lt;lt; k lt;lt; endl;