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

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

end.