Три группы студентов по 20 человек сдавали сессию. Определить лучшую группу по среднему группы. Паскаль

1.Я неуверен на 100% в 1 задаче.

Если весь текст состоит из К символов, то приалфавитном подходе размер содержащийся в ней информации I определяется по формуле:
I=K*x,
где х—информационный вес одного символа в используемом алфавите.

РЕШЕНИЕ:
Всего у нас 10 символов: 0,1,2,3,4,5,6,7,8,9.
I=K*x, 10*8=80 бит
80*80=6400 бит
ответ:6400 бит.

2.Пусть в некотором сообщении содержатся сведения о том, что произошло одно из N равновероятных событий. Тогда кол-во информации x, заключенное в этом сообщении, и число событий N связаны формулой:
2^х=N

РЕШЕНИЕ:
2^x=8
2^3=8
ответ: 3 бит.

Вот программа : program xxx; 
<p>program xxx;</p><p>&nbsp;&nbsp; var i, k, d, e, s : integer;</p><p>begin</p><p>&nbsp; k:=0;</p><p>&nbsp;for i:= 10 to 99 do</p><p>&nbsp;&nbsp; begin</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; d:= i div 10;</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; e:= i mod 10;</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; s:=d + e;</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if i mod s = 0 then k:=k+1</p><p>&nbsp;&nbsp; end;</p><p>&nbsp;&nbsp; write ('кол-во чисел которые делятся на сумму своих цифр=', k);</p><p>&nbsp;&nbsp; readln</p><p>end.</p>