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

program dfg;vara: array [1..8] of integer;f,n,i:integer;beginn:=0;randomize ;for I:=1 to 8 dobegina[i]:= random(1,10);writeln(a[i]);if (a[i] mod 2)=0 thenbeginf:=1;endelse begin f:=0;end;n:=n+f;end;writeln(n);end.