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

var a:array[1..10] of integer;s,k,i:integer;sr:real;beginrandomize;for i:=1 to 10 do begina[i]:=random(10);write(a[i]:2); end;for i:=1 to 10 doif not odd(a[i]) then begins:=s+a[i]; inc(k);end;sr:=s/k;writeln;writeln('Сред.арифм. четных элементов: ',sr);end.