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

Program kol_vo_elementov;

var a:array[1 ... 10] of integer;

i, n, k:integer;

begin

writeln ('Введите кол-во элементов') ;

readln (n) ;

k:=0;

for i:=1 to n do

begin

writeln ('Введите число') ;

readln (a[i]) ;

if (i mod 2=0) then

k:=k+1;

end;

writeln ('Кол-во чётных элементов=', k) ;

end.