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

program kol_vo_elementov;var a:array[1..10] of integer;i, n, k:integer;beginwriteln('Введите кол-во элементов');readln(n);k:=0;for i:=1 to n dobeginwriteln('Введите число');readln(a[i]);if (i mod 2=0) thenk:=k+1;end;writeln('Кол-во чётных элементов=',k);end.