Сотрудники = Справочники.Сотрудники;
Писатели = Сотрудники.НайтиПоНаименованию(
    "Писатели");
Выборка = Сотрудники.Выбрать(Писатели);
Пока Выборка.Следующий() Цикл
    Сообщить(Выборка.Наименование);
КонецЦикла;