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

Program dfg;

var

a: array [1 ... 8] of integer;

f, n, i:integer;

begin

n:=0;

randomize;

for I:=1 to 8 do

begin

a[i]: = random (1,10) ;

writeln (a[i]) ;

if (a[i] mod 2) = 0 then

begin

f:=1;

end

else

begin

f:=0;

end;

n:=n+f;

end;

writeln (n) ;

end.