// 1. Ввод названия номенклатуры
Товар = "";
ВвестиСтроку(Товар, "Введите название номенклатуры", 200);
Товар = СокрЛП(Товар);
// 2. Находим первый пробел — он отделяет артикул от названия
Поз = Найти(Товар, " ");
// 3. Артикул — всё до первого пробела
Артикул = Лев(Товар, Поз - 1);
// 4. Вывод
Сообщить("Артикул: " + Артикул);
