Загрузка данных

АдресСтраницы = "";
ВвестиСтроку(АдресСтраницы, "Введите адрес страницы:");

// 1. Убираем протокол
БезПротокола = СтрЗаменить(АдресСтраницы, "http://", "");
БезПротокола = СтрЗаменить(БезПротокола, "https://", "");

// 2. Убираем www.
БезWWW = СтрЗаменить(БезПротокола, "www.", "");

// 3. Отрезаем всё после первого слеша
Части = СтрРазделить(БезWWW, "/");
Домен = Части[0];

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