(4) тогда такой вариант:
НаборЗаписей = РегистрыСведений.Тест.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Измерение1.Установить(Неопределено);
НаборЗаписей.Прочитать();
Сообщить(НаборЗаписей.Количество());
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший