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

var A:array[1..8] of Integer; i:Integer; multiply:Integer; count:Integer; begin Randomize; multiply:=1; count:=0; writeln('====== Элементы массива ======'); for i:=1 to 8 do begin A[i]:=random(10) + 1; writeln(A[i]); if A[i] mod 2=0 then count:=count+1; if A[i] mod 2=1 then multiply:=multiply*A[i]; end; writeln('======'); writeln('Чётных элементов всего = ',count); writeln('Произведение нечётных = ',multiply); end.