Напиши те программу вычисления в массиве из n элементов, заданных датчиком случайных чисел из промежутка от -13 до 25, количества четных элементов.

Begin
var a := ArrRandom (ReadInteger ('n='), -13,25).Where (x-> x mod 2=0).Count;
write (a);
end.