---

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

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

// Находим позиции двух точек
Точка1 = Найти(ДатаСтр, ".");
Точка2 = Найти(ДатаСтр, ".", Точка1 + 1);

// Извлекаем части
День  = Лев(ДатаСтр, Точка1 - 1);
Месяц = Сред(ДатаСтр, Точка1 + 1, Точка2 - Точка1 - 1);
Год   = Сред(ДатаСтр, Точка2 + 1, СтрДлина(ДатаСтр) - Точка2);

// Выводим ОДНИМ сообщением, склеивая через переносы строк
Сообщить("День - " + День + Символы.ПС
       + "Месяц - " + Месяц + Символы.ПС
       + "Год - " + Год);