Построить блочный код шеннона-фано с блоками длиной 3 и вычислить его эффективность для однородного марковского источника с матрицей переходных вероятностей

Var i: integer; begin      i : = 30;       while (i > = 1) do      begin          if (i mod 2 = 1) then            writeln(i);           i : = i - 1;       end; end.2)var i, a: integer; begin    for i: =0 to 30 do        if (i mod 2 = 1) then          a : = a + i;     writeln(a); end.удачи: )

Uses crt; const    n = 10; var     a : array [1..n] of real;     i : integer;       max, min : real; begin     clrscr;     for i : = 1 to n do    begin             write('a[', i,'] = ');             readln(a[i]);       end;     max : = a[1];       min : = a[1];     for i : = 2 to n do     begin         if max < a[i] then max : = a[i];         if min > a[i] then min : = a[i];     end;       writeln(max - min: 0: 3);       readln; end.