Сайт      = Главный.Определить(0, Объекты.Вебстраница, Свойства.Адрес, "https://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml");
Результат = Сайт.Обновить();
Если (Результат<=0) Тогда
    Сообщить(Этот.Наименование, "Нет соединения");
    Возврат 0;
Конец;
Текст = Сайт.Текст;
Для Стр Из Текст Цикл
    Если (Строки.Найти(Стр, "RUB")>0) Тогда
        Стр2 = Строки.Значение(Стр,  "rate='");
        Стр2 = Строки.Свойство(Стр2, "'");
        Курс = Числа.Число(Стр2);
        Стр3 = "1 EUR = "+           Строки.Строка(Курс)+ " RUB";
        Сообщить(Стр3);
        Уведомить(Стр3);
        Прервать;
    Конец;
Конец;