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

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