Составьте программу которая заполняет массив а [1..8] случайными числами в диапазоне от 1 до 10 и выводит на экран количество элементов с чётными значениями и сумму элементов массива с нечётными значениями

var   a : array [1..8] of integer;   i, count, sum : integer; begin   randomize;   for i := 1 to 8 do     a[i] := random (10) + 1;   count := 0; sum := 0;   for i := 1 to 8 do     if a[i] mod 2 = 0 then count := count + 1     else sum := sum + a[i];   writeln ('count = ', count);   writeln ('sum = ', sum); end.