стр Лев стр СтрДлина стр -1

1
стр = Лев(стр, СтрДлина(стр)-1);