---

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

// Убираем двойные пробелы (если пользователь ввёл лишние)
ФИО = СтрЗаменить(ФИО, "  ", " ");

// Находим первый пробел
Поз1 = Найти(ФИО, " ");
Фамилия = Лев(ФИО, Поз1 - 1);

// Обрезаем строку после первого пробела
Остаток = Сред(ФИО, Поз1 + 1, СтрДлина(ФИО) - Поз1);

// Ищем второй пробел в остатке
Поз2 = Найти(Остаток, " ");
Имя = Лев(Остаток, Поз2 - 1);
Отчество = Сред(Остаток, Поз2 + 1, СтрДлина(Остаток) - Поз2);

// Приводим к виду "Иванов" — титульный регистр
Фамилия  = ТРег(НРег(Фамилия));
Имя      = ТРег(НРег(Имя));
Отчество = ТРег(НРег(Отчество));

// Выводим одним сообщением
Сообщить("Фамилия: "  + Фамилия + Символы.ПС
       + "Имя: "      + Имя     + Символы.ПС
       + "Отчество: " + Отчество);