По какой формуле определяется алфавитный подход к измерению информации

2'= n где n-мощность алфавита, '(i)- количество информации

Var x1,y1,x2,y2,v1,v2: real; begin     writeln("введите количество метров пробегания жирафа");     read(y1);     writeln("введите, за сколько секунд он должен пробежать");     read(x1);     writeln("введите количество метров пробегания зайца");     read(y2);     writeln("введите, за сколько секунд он должен пробежать");     read(x2);     v1: =y1/x1;     v2: =y2/x2;     if v1> v2 then      begin       writeln("жираф чемпион");   end   else  if v1< v2 then      begin       writeln("заяц  чемпион");     end    else   begin       writeln(" победила дружба);   end; end;

Const       handsfree = true; var       a: array[1..100] of real;       i, n: integer;       min: real; begin       {ввод массива}       if handsfree then               n : = random(20) + 5       else begin               write('n = ');               readln(n);       end;             writeln('данные массива: ');       for i : = 1 to n do       begin               if handsfree then begin                       a[i] : = random(100);                       write(a[i], ' ');               end               else readln(a[i]);       end;       writeln();                     {минимум и максимум}       min : = a[1];       for i : = 1 to n do       begin               if (min > a[i]) and (i mod 2=1) then min : = a[i];       end;       writeln('min = ', min); end.