---

// Упражнение №14: Скобки
Строка = "";
ВвестиСтроку(Строка);

Ошибка = 0;
Для А = 1 По СтрДлина(Строка) Цикл 
    Символ = Сред(Строка, А, 1);
    Если Символ = "(" Тогда 
        Ошибка = Ошибка + 1;
    КонецЕсли;
    Если Символ = ")" Тогда 
        Ошибка = Ошибка - 1;
    КонецЕсли;
    Если Ошибка < 0 Тогда
        Прервать;
    КонецЕсли;
КонецЦикла;

Если Ошибка = 0 Тогда
    Сообщить("Последовательность скобок корректна.");
Иначе 
    Сообщить("Последовательность скобок некорректна!");
КонецЕсли;

// Упражнение №15: Возраст
Строка = "";
ВвестиСтроку(Строка);

Возраст = "";
Для А = 1 По СтрДлина(Строка) Цикл
    Символ = Сред(Строка, А, 1);
    Если Найти("0123456789", Символ) > 0 Тогда
        Возраст = Возраст + Символ;
    КонецЕсли;
КонецЦикла;

Сообщить(Возраст);

// Упражнение №16: Светофор
Секунды = 0;
ВвестиЧисло(Секунды);

СекундаЦикла = Секунды % 360;

Если СекундаЦикла < 180 Тогда
    Сообщить("Зелёный");
ИначеЕсли СекундаЦикла < 240 Тогда
    Сообщить("Жёлтый");
Иначе
    Сообщить("Красный");
КонецЕсли;

// Упражнение №17: Сокращенное ФИО
Строка = "";
ВвестиСтроку(Строка);

МногострочныйТекст = СтрЗаменить(Строка, " ", Символы.ПС);

Фамилия  = СтрПолучитьСтроку(МногострочныйТекст, 1);
Имя      = СтрПолучитьСтроку(МногострочныйТекст, 2);
Отчество = СтрПолучитьСтроку(МногострочныйТекст, 3);

Сообщить(Фамилия + " " + Лев(Имя, 1) + "." + Лев(Отчество, 1) + ".");