---

Перем Флаг;
Перем Запрос;
Перем Результ;

Процедура КнопкаВыполнитьНажатие(Кнопка)
КонецПроцедуры

Н = Новый Массив(3);
Ц = Новый Массив(3);

Н[0] = "Молоко"; Н[1] = "Вода"; Н[2] = "Батон";
Ц[0] = 15; Ц[1] = 6; Ц[2] = 11;

С = Новый Структура;
С.Вставить("МОЛОКО", Ц[0]);
С.Вставить("ВОДА", Ц[1]);
С.Вставить("БАТОН", Ц[2]);

~Ввод:

Если ВвестиСтроку(Запрос, "Введите название продукта", 10) = Истина Тогда 
    
    ОчищенныйЗапрос = ВРег(СокрЛП(Запрос));
    ИндексНайденого = Неопределено;
    
    Для Индекс = 0 По Н.Количество() - 1 Цикл
        Если ВРег(Н[Индекс]) = ОчищенныйЗапрос Тогда
            ИндексНайденого = Index;
            Прервать;
        КонецЕсли;
    КонецЦикла;
    
    Если ИндексНайденого = Неопределено Тогда
        Флаг = 0;
        Сообщить("Ошибка: Товар не найден!");
    Else
        Флаг = 1;
        С.Свойство(ОчищенныйЗапрос, Результ);
        
        Сообщить(Флаг); 
        Сообщить("---------"); 
        Сообщить("Название товара: " + Н[ИндексНайденого]); 
        Сообщить("Цена товара: " + Результ);
    КонецЕсли;
    
    Сообщить("");
    Перейти ~Ввод;
    
КонецЕсли;