---

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

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

Н = Новый Массив(3);
Ц = Новый Массив(3);
Н[0] = "Молоко"; Н[1] = "Вода"; Н[2] = "Батон";
Ц[0] = 15; Ц[1] = 6; Ц[2] = 11;

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

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