Как правильно сформировать код EAN 13?

погугли

что именно?
последнюю контрольную цифру?

Да непонятно как формируется последняя цифра

// глКонтрольныйСимволEAN(ШтрКод, Тип)
//
// Параметры:
//  ШтрКод - 12-символьный штрих-код (без контрольной цифры)
//  Тип    - тип штрихкода: 13 - EAN13, 8 - EAN8
//
// Возвращаемое значение:
//  Контрольный символ
Функция глКонтрольныйСимволEAN(ШтрКод, Тип)
   Четн = 0;
   Нечетн = 0;
   Если Тип = 13 Тогда
       КолвоИтераций = 6;
   Иначе
       КолвоИтераций = 4;
   КонецЕсли;
   Для Индекс = 1 По КолвоИтераций Цикл
       Четн = Четн + Сред(ШтрКод, 2 * Индекс, 1);
       Нечетн = Нечетн + Сред(ШтрКод, 2 * Индекс - 1, 1);
   КонецЦикла;
   Если Тип = 13 Тогда
       Четн = Четн * 3;
   Иначе
       Нечетн = Нечетн * 3;
   КонецЕсли;
   КонтЦифра = 10 - (Четн + Нечетн) % 10;
   Возврат ?(КонтЦифра = 10, "0", Строка(КонтЦифра));
КонецФункции // глКонтрольныйСимволEAN()

(0)А можно по подробнее сто это и для чего это EAN 13 ?

поиском
я писал но второпях вот:

       код = "200000"+код;
       нечет=0; чет=0; кразр=0;
       Для н=1 По 12 Цикл
           Если (н/2=Окр(н/2)) Тогда
               чет=чет+Число(Сред(код,н,1));
           Иначе
               нечет=нечет+Число(Сред(код,н,1));
           КонецЕсли;
       КонецЦикла;
       рез = чет*3+нечет;
       Пока не (рез=Цел(рез/10)*10) цикл
           рез=рез+1;
           кразр=кразр+1;
       КонецЦикла;
       код = код+Строка(кразр);

выдрал кусок

(5)Чувак читай и не парься это штрих код

(5) ф поиск... давно все уже расписано