Алгоритм расчета контрольного числа ОГРН (основной государственный регистрационный номер)

Государственный регистрационный номер записи, вносимой в Единый государственный реестр юридических лиц (далее - государственный реестр), состоит из 13 цифр, расположенных в следующей последовательности: СГГККХХХХХХХЧ, где

С (1-й знак) - признак отнесения государственного регистрационного номера записи:

1 - к основному государственному регистрационному номеру (ОГРН);
2 - к иному государственному регистрационному номеру записи;

ГГ (со 2-го по 3-й знак) - две последние цифры года внесения записи в государственный реестр;

КК (4-й, 5-й знаки) - порядковый номер субъекта Российской Федерации по перечню субъектов Российской Федерации, установленному статьей 65 Конституции Российской Федерации;

ХХХХХХХ (с 6-го по 12-й знак) - номер записи, внесенной в государственный реестр в течение года;

Ч (13-й знак) - контрольное число: младший разряд остатка от деления предыдущего 12-значного числа на 11.

unit OGRN; interface function CheckOGRN(const OGRN: string): Boolean; implementation uses Sysutils; function CheckOGRN(const OGRN: string): Boolean; var VerifNumb: Int64; CheckNumb, ResultNumb: Byte; begin Result := Length(OGRN) = 13; if Not Result then Exit; VerifNumb := StrToInt64(Copy(OGRN, 1, 12)); CheckNumb := StrToInt(OGRN[13]); ResultNumb := VerifNumb mod 11; if ResultNumb > 9 then ResultNumb := ResultNumb - Round(ResultNumb/10)*10; Result := ResultNumb = CheckNumb; end; end.