120
правокИзменения
IMEI
,авторские права на все материалы принадлежат сообществу, недопустимо указывать лично авторство
== Алгоритм вычисления Check Digit на языке Delphi ==
(небольшой комментарий от n0wheremany - ''проверить: алгоритм отписанный выше не совсем правильный''')
# Имеем 14 значный IMEI
Result := IMEI + IntToStr(X);
end;