5. Процедура есть в тексте программы, но не срабатывает. В чём может быть причина?
6. Куда передаётся управление, если процедура вызывается и са-
мом конце основной программы (за ним нет других команд)?​

800 * 10 = 8000 символов било передано

5000 байт = 5000 * 8 = 40000 бит было передано

40000 : 8000 = 5 бит приходится на кодирование 1 символа

n = 2 ^ i

n = 2^5 = 32 символа размер алфавита.

program xxx;

    var z,d,k : integer;

begin

  z: =2; d: =7; k: =0;

  while (d> =z) do

    begin

      d: =d-z;

        k: =k+1

      end;

  writeln(d,'    ',k);

  readln

end.

20-25=-5                                                                                   

хай