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

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