Составьте программу, которая заполняет массив а 1..0 случайными целыми числами в диапазоне от 1 до 10 и вычесляет сумму элементов массива с четными значениями

program ex; const g = 100; var a, i, sum: integer; b: array[1..g] of integer; // Не совсем понятен был размер массива. Мною было принято решение задать значение 100. Вы можете изменить его в любое время. // Поменяв значение в константе g. begin sum := 0; for i := 1 to g do  begin a := random(1, 10); b[i] := a; if b[i] mod 2 = 0 then sum := b[i] + sum; end; write('Сумма массивов с четными значениями: ', sum) end.