Система счисления

const
  s2: string = '0000 0001 0010 0011 0100 0101 0110 0111 1000 1001 1010 1011 1100 1101 1110 1111';
  s3: string = '0123456789ABCDEF';
 
function HexToBin(s: string): string;
var
  i: byte;
  rez: string;
begin
  rez := '';
  for i := 1 to length(s) div 2 do
  begin
    rez := rez + copy(s2, (pos(s[i * 2 - 1], s3) + 1) + (4 * (pos(s[i * 2 - 1], s3) - 1)) - 1, 4);
    rez := rez + copy(s2, (pos(s[i * 2], s3) + 1) + (4 * (pos(s[i * 2], s3) - 1)) - 1, 4);
  end;
  if odd(length(s)) then rez := rez + copy(s2, (pos(s[length(s)], s3) + 1) + (4 * (pos(s[length(s)], s3) - 1)) - 1, 4);
  HexToBin := rez;
end;
 
 
 
function HowManyZeroes(s: string): integer;
var
  k, n, i: integer;
begin
  n := 0;
  for i := 1 to length(s) do
    if s[i] = '1' then
    begin
      k := i;
      break;
    end;
  for i := k to length(s) do
    if s[i] = '0' then
      inc(n);
  HowManyZeroes := n;
end;
 
var
  f1, f2: text;
  s: string;
 
begin
  assign(f1, 'input.txt');
  assign(f2, 'output.txt');
  reset(f1);
  rewrite(f2);
  readln(f1, s);
  readln(f1, s);
  s := hextobin(s);
  writeln(f2, HowManyZeroes(s));
  close(f1);  
  close(f2);
end.

const size=16;
{тетрады  в программе не нужны, только для себя, чтобы составить массивы
tetr:array[1..size] of string[4]=('0000','0001','0010','0011','0100','0101',
                                  '0110','0111','1000','1001','1010','1011',
                                  '1100','1101','1110','1111'); }
 
//количество значащих нолей если их еще нет
z0:array[1..16] of byte=(0,0,1,0,2,1,1,0,3,2,2,1,2,1,1,0);
// количество значащих нолей если они уже есть
z1:array[1..16] of byte=(4,3,3,2,3,2,2,1,3,2,2,1,2,1,1,0);
cf16:string[size]='0123456789ABCDEF';
var c:array[1..100000] of char;
    n,i,k,f:integer;
begin
readln(n);
for i:=1 to n do
read(c[i]);
f:=0;//пока нет значащих цифр
for i:=1 to n do
 begin
  if f=0 then //если еще нет, то
   begin
    if c[i]>'0' then //если цифра больше 0
     begin
      f:=1;//будут значащие цифры
      inc(k,z0[pos(c[i],cf16)]);
     end
    end
  else inc(k,z1[pos(c[i],cf16)]);
 end;
write('k=',k)
end.

begin
  var l := ReadLnInteger;
  var s := ReadLnString;
  var c := '0123456789ABCDEF';
  var n := arr(4,3,3,2,3,2,2,1,3,2,2,1,2,1,1,0);
  var v := arr(0,0,1,0,2,1,1,0);
  var i := c.IndexOf(s[1]);
  WriteLn(s.Select(ch->n[c.IndexOf(ch)]).Sum+(i<8?v[i]-n[i]:0));
end.