cifra$="460" ;3 цифры      Код страны Россия 460-469 461-Иркутск
cifra$+"3658" ;4 цифры     Код изготовителя. 3658 занято г.Кстово и Иркутская обл ))))
cifra$+"00000";5 цифр     Код товара



Dim d.a(13)
s.s=""
For p=1 To 13
  d(p)=Val(Mid(cifra$,p,1))
  s+Str(d(p))
Next p
Debug cifra$+"< Без контрольно суммы"
Debug s+"< конвертация в цифры"

l.a=0

s.s=""
For p=1 To 13
  s=s+Str(D(p))
Next p
;Debug s
s.s=""
For p=1 To 13
  ;Debug Mod(p,2)
  If Mod(p,2)<>0 
    s=s+"1"
  Else 
    s=s+"2"
  EndIf
  
    
Next p
Debug s


Debug "----------------------------------"
;1. Сложить цифры, стоящие на четных местах:
p1.a=0
p1=d(2)+d(4)+d(6)+d(8)+d(10)+d(12)
Debug Str(D(2))+Str(d(4))+Str(d(6))+Str(d(8))+Str(d(10))+Str(d(12))
Debug "1-Сложить цифры, стоящие на четных местах п.1: "+#CR$+Str(p1)

Debug "----------------------------------"
Debug ""
;2.Полученную сумму умножить на 3
p2.a=0
p2=p1*3 
Debug "2-Полученную сумму умножить на *3 п.2: "+#CR$+Str(p2)
Debug "----------------------------------"
Debug ""


;3.Сложить цифры, стоящие на нечетных местах, кроме контрольной цифры
p3.a+d(1)+d(3)+d(5)+d(7)+d(9)+d(11)
Debug "3-Сложить цифры, стоящие на нечетных местах, кроме контрольной цифры:"+#CR$+Str(p3)
Debug "----------------------------------"
Debug ""


;4.Сложить полученные в пунктах 2 и 3 цифры
p4=p2+p3
Debug "4-Сложить полученные в пунктах 2 и 3 цифры п.4: "+#CR$+p4
Debug "----------------------------------"
Debug ""

;Из полученного числа убираем десятки, остается цифра: 4
p5=Val(Right(Str(p4),1))
Debug "5-Из полученного числа убираем десятки, остается цифра "+#CR$+Str(p4)+">"+Str(p5)
Debug "----------------------------------"
Debug ""

;Из полученного числа убираем десятки, остается цифра: 4
p6=10-p5
Debug "6-Из числа 10 вычесть полученную в пункте 5 цифру"+#CR$+Str(p6)
Debug "----------------------------------"
Debug ""

Debug "КОНТРОЛЬНАЯ СУММА: "+p6

p6=Val(Right(Str(p6),1))
Debug "==================================="
Debug "ОТВЕТ:"+cifra$+p6