uses Исполнители;

begin
  var посл := СлучайнаяПоследовательность(10);
  посл.Вывести;
  
  посл.Количество(значение -> Четное(значение)).Вывести;
  
  var количество := 0;
  foreach var значение in посл do
    if Четное(значение) then
      количество += 1;
  количество.Вывести
end.