Сообщение на языке бамбара (128 символов в алфавите) сообщение на языке мандинго (64 символа в алфавите) занимает 7 страниц – по 25 строк. 70 символов в строке. какое сообщение несёт больше информации и на сколько?

Нам известна мощность алфавита N (т.е. количество всех возможных символов) обоих языков, значит мы можем узнать информационный вес (i) одного символа для каждого языка по формуле . 
    Для языка Бамбара i=7 бит (); для языка Мандинго i=6 бит ().
     Узнаем количество информации в сообщении на языке Бамбара: 7*70*25*7= 85 750 бит.
     Вычислим количество информации в сообщении на языке Мандинго: 6*70*25*7= 73 500 бит.
       Делаем вывод, что сообщение на языке Бамбара несёт больше информации на 12 250 бит (85 750-73 500= 12 250).

Var a: byte; b:integer;
Begin 
writeln('Введите день месяца');
readln(b);
writeln('Введите номер месяца');   
Readln(a);    
          Case a of        
1: writeln(b,' янавря');        
2: writeln(b,' февраля');      
3: writeln(b,' марта ');        
4: writeln(b,' апреля ');      
5: writeln(b,' мая');      
6: writeln(b,' июня ');        
7: writeln(b,' июля');       
8: writeln(b,' августа');     
9: writeln(b,' сентября');     
10: writeln(b,' октября');     
11: writeln(b,' ноября');       
12: writeln(b,' декабря');     
else writeln('Месяца №', a,'нет');   
end;       
end.

Turbo Pascal

USES CRT;
VAR A:array[1..10] of integer;
    B:array[1..5] of integer;
    C:array[1..5] of integer;
    i,bx,cx:integer;

BEGIN
CLRSCR;
Randomize;

  For i:=1 to 10 do
     begin
       A[i]:=1+random(50);
       Write(A[i],' ');
     end;

  Writeln;

  bx:=1; cx:=1;

  for i:=1 to 10 do
     if (i mod 2 = 0) then
                         begin
                            B[bx]:=A[i];
                            bx:=bx+1;
                         end
                      else
                         begin
                            C[cx]:=A[i];
                            cx:=cx+1;
                         end;

  For i:=1 to 5 do
     Write(B[i],'  ');

  Writeln;

  For i:=1 to 5 do
     Write(C[i],'  ');

READLN;
END.