---

URL = "";
ВвестиСтроку(URL, "Введите адрес", 100);
URL = СокрЛП(URL);

// 1. Убираем протокол
URL = СтрЗаменить(URL, "http://",  "");
URL = СтрЗаменить(URL, "https://", "");

// 2. Убираем www.
URL = СтрЗаменить(URL, "www.", "");

// 3. Обрезаем путь — берём всё до первого "/"
Поз = Найти(URL, "/");
Домен = Лев(URL, Поз - 1);

Сообщить("Домен: " + Домен);