function count(const s: string): integer;
var
  sum: array['0'..'9'] of integer; 
  old, i: integer;
  ch: char;
begin;
//общее количество = одна пустая
  Result:=1; 
//количества подпоследовательностей с концом на '0'..'9' вначале 0
  for ch:='0' to '9' do sum[ch]:=0;  
//крутим цикл по всем цифрам строки
  for i:=1 to Length(s) do begin;
//текущая цифра
    ch:=s[i];
//столько кончалось на ch
    old:=sum[ch];
//теперь столько кончается на ch из общего количества
    sum[ch]:=Result; 
//а общее количество удвоилось, т.к. ch можем добавить в конец, а можем и нет
//но при этом дважды посчитали old
    Result:=Result+Result-old; 
    end;
  end;

function CountSeq8(const s: string): integer;
const
  Prim = 1000 * 1000 * 1000 + 7;
var
  Found1, Refresh2, Refresh3: array[0..9] of boolean;
  Found2: array[0..99] of boolean;
  Found3: array[0..999] of integer;
  MinPos3, Sum: array[0..9] of integer;
  i, j, k, m, h, Count, Old: integer;
begin;
  //Шаг1 - просмотр справа налево, подсчет единиц, двоек, определение начал троек.
  for i:=0 to 9 do begin;
    Found1[i]:=false;
    Refresh2[i]:=false;
    Refresh3[i]:=false;
    MinPos3[i]:=MaxInt;
    end;
  for i:=0 to 99 do Found2[i]:=false;
  for i:=0 to 999 do Found3[i]:=MaxInt;
  for i:=Length(s) downto 1 do begin;
    j:=Ord(s[i])-Ord('0');
    if Refresh3[j] then begin;
      Refresh3[j]:=false;
      m:=j*100;
      k:=m+96-(j and 1)*4;
      repeat;
        if (Found3[k]=MaxInt) and Found2[k-m] then begin;
          Found3[k]:=i;
          MinPos3[j]:=i;
          end;
        k:=k-8;
        until k<m;
      end;
    if Refresh2[j] then begin;
      Refresh2[j]:=false;
      m:=j*10; k:=m+8-(j and 1)*2;
      repeat;
        if Found1[k-m] and not Found2[k] then begin;
          Found2[k]:=true;
          h:=k shr 2 and 1 + 8;
          repeat;
            if Found3[100*h+k]=MaxInt then Refresh3[h]:=true;
            h:=h-2;
            until h<0;
          end;
        k:=k-4;
        until k<m;
      end;
    Found1[j]:=true;
    if j and 1=0 then for k:=0 to 9 do if not Found2[10*k+j] then Refresh2[k]:=true;
    end;
  Result:=0;
  for i:=0 to 9 do if (i and 7=0) and Found1[i] then inc(Result);
  for i:=0 to 99 do if (i and 7=0) and Found2[i] then inc(Result);

  //Шаг2 - просмотр слева направо, суммирование количества подпоследовательностей с концами на тройках.
  Count:=1;
  for i:=0 to 9 do Sum[i]:=0;
  for i:=1 to Length(s) do begin;
    j:=Ord(s[i])-Ord('0');
    if i=MinPos3[j] then begin;
      MinPos3[j]:=MaxInt;
      m:=j*100;
      k:=m+96-(j and 1)*4;
      repeat;
        if Found3[k]=i then begin;
          Found3[k]:=MaxInt;
          Result:=Result+Count; if Result>=Prim then Result:=Result-Prim;
          end
        else if MinPos3[j]>Found3[k] then MinPos3[j]:=Found3[k];
        k:=k-8;
        until k<m;
      end;
    Old:=Sum[j];
    Sum[j]:=Count;
    Count:=Count+Count-Old; if Count>=Prim then Count:=Count-Prim;
    end;
  end;

    Count:=Count+Count-Old;
    if Count>=Prim then Count:=Count-Prim
    else if Count<0 then Count:=Count+Prim;

function CountSeq82(const s: string): integer;
const
  Prim = 1000 * 1000 * 1000 + 7;
var
  i, j, k, m, h, t: integer;
  Found2, Empty2, Refresh2, Count, Old, Total3: integer;
  Pos3: array[0..124] of integer;
  Mask1, Mask2, MinPos3, Sum: array[0..9] of integer;
  Found1, Refresh3: array[0..9] of boolean;
label
  Done1, Done2;
begin;
  //Шаг1 - просмотр справа налево, подсчет единиц, двоек, определение начал троек.
  Total3:=0;
  Refresh2:=0; Found2:=0; Empty2:=Found2 xor $01FFFFFF;
  for i:=0 to High(Pos3) do Pos3[i]:=MaxInt;
  for i:=0 to 9 do begin;
    MinPos3[i]:=MaxInt;
    Refresh3[i]:=false;
    Found1[i]:=false;
    Mask1[i]:=0;
    Mask2[i]:=0;
    end;
  for i:=0 to 24 do begin; //24=96 div 4
    j:=i*4;
    k:=j div 10;
    m:=j - k*10;
    j:=1 shl i;
    Mask2[k]:=Mask2[k] or j;
    Mask1[m]:=Mask1[m] or j;
    end;

  for i:=Length(s) downto 1 do begin;
    j:=Ord(s[i])-Ord('0');
    if Refresh3[j] then begin;
      k:=24 - (j and 1);
      m:=j shr 1 * 25 + k;
      k:=1 shl k;
      Refresh3[j]:=false;
      repeat;
        if (Pos3[m]=MaxInt) and (Found2 and k<>0) then begin;
          Pos3[m]:=i;
          MinPos3[j]:=i;
          inc(Total3); if Total3=125 then goto Done1;
          end;
        k:=k shr 2;
        m:=m-2;
        until k=0;
      end;
    t:=Mask2[j] and Refresh2;
    if t<>0 then begin;
      m:=8-(j and 1)*2;
      k:=1 shl ((j*10+m) shr 2);
      Refresh2:=t xor Refresh2;
      repeat;
        if t and k<>0 then begin;
          h:=(j*10+m) shr 2 and 1 + 8;
          Found2:=Found2 xor k;
          repeat;
            Refresh3[h]:=true;
            h:=h-2;
            until h<0;
          end;
        k:=k shr 1;
        m:=m-4;
        until m<0;
      Empty2:=Found2 xor $01FFFFFF;
      end;
    Found1[j]:=true;
    if j and 1=0 then Refresh2:=Mask1[j] and Empty2 or Refresh2;
    end;
Done1:
  Result:=0;
  for i:=0 to 9 do if (i and 7=0) and Found1[i] then inc(Result);
  for i:=0 to 24 do if (i and 1=0) and (Found2 shr i and 1<>0) then inc(Result);

  //Шаг2 - просмотр слева направо, суммирование количества подпоследовательностей с концами на тройках.
  Count:=1;
  for i:=0 to 9 do Sum[i]:=0;
  for i:=1 to Length(s) do begin;
    j:=Ord(s[i])-Ord('0');
    if i=MinPos3[j] then begin;
      MinPos3[j]:=MaxInt;
      m:=j shr 1 * 25;
      k:=24 - (j and 1) + m;
      repeat;
        if Pos3[k]=i then begin;
          Pos3[k]:=MaxInt;
          Result:=Result+Count; if Result>=Prim then Result:=Result-Prim;
          //dec(Total3); if Total3=0 then goto Done2;
          end
        else if MinPos3[j]>Pos3[k] then MinPos3[j]:=Pos3[k];
        k:=k - 2;
        until k<m;
      end;
    Old:=Sum[j];
    Sum[j]:=Count;
    Count:=Count+Count-Old;
    if Count>=Prim then Count:=Count-Prim
    else if Count<0 then Count:=Count+Prim;
    end;
Done2:
  end;