---

Процедура ВывестиСписокФИО(ФИО)
    ФИО = СокрЛП(ФИО);
    ФИО = СтрЗаменить(ФИО, "  ", " ");
    
    // Разбираем на три части
    Поз1 = Найти(ФИО, " ");
    Фамилия = Лев(ФИО, Поз1 - 1);
    
    Остаток = Сред(ФИО, Поз1 + 1, СтрДлина(ФИО) - Поз1);
    Поз2 = Найти(Остаток, " ");
    Имя = Лев(Остаток, Поз2 - 1);
    Отчество = Сред(Остаток, Поз2 + 1, СтрДлина(Остаток) - Поз2);
    
    // Выводим 5 строк в правильном порядке
    Сообщить(Имя);
    Сообщить(Фамилия + " " + Имя);
    Сообщить(Фамилия + " " + Имя + " " + Отчество);
    Сообщить(Фамилия + " " + Имя);
    Сообщить(Имя);
КонецПроцедуры

// Основной код
ФИО = "";
ВвестиСтроку(ФИО, "Введите ФИО", 100);
ВывестиСписокФИО(ФИО);