Дан массив натуральных чисел. Заполнить с помощью датчика случайных чисел. Подсчитать количество четных чисел от 1 до

const R=20; //размер исходного массиваVar a: array [1..R] of integer; i, sum: integer;begin//заполняем массив случайными числами от 0 до 100For i:=1 to R do a[i]:=random(100); //выводим получившийся массивwriteln (\'Исходный массив\');For i:=1 to R do write (a[i], \' \');Writeln(); //считаем количество чётных чисел от 1 до 10sum:=0; //обнуляем суммуFor i:=1 to R do begin if (a[i] mod 2 = 0) {если число чётное} and ((a[i]>=1) or (a[i]<=10)) {и в заданном промежутке} then sum:=sum+1; //увеличиваем счётчик на 1 end;//выводим суммуWriteln (\'Количество четных чисел от 1 до 10: \', sum);end.