Переписать программу с Pascal на Python:
const
e = 0.001;
var
a, s: real;
i, n: integer;
begin
n:= 1;
a:= 1 / 3;
s:= 0;
repeat
s:= s + a;
inc (n);
a:= 1 / 3;
for i:= n downto 1 do a:= a * i / n
until abs (a) < e;
writeln ('S = ', s:0:6);
readln
end.

Каждую букву можно закодировать какой-то последовательностью битов. Минимально количество битов, необходимых для кодирования всех букв таким образом, чтобы все последовательности различались хотя бы в одном бите, равно 3, так как 2^2<6<2^3
То есть одна буква несет 3 бита информации.
Например, был алфавит а,б,в,г,д,е,ж
Нельзя каждой букве сопоставить последовательность из 2 битов, поскольку максимально возможное количество таких последовательностей равно 2^2=4, что меньше 6.
А вот 3 битами закодировать можно, например так:
а - 000
б - 001
в - 010
г - 011
д - 100
е - 101
При этом еще останется неиспользованных две последовательности: 110 и 111.
Алфавит можно кодировать и бОльшим количеством бит, но это делать незачем.

Const n = 15;
var a: array[1..n] of integer;
  i, j, m: integer;
begin
  // генерация и вывод
  randomize;
  for i := 1 to n do a[i] := Random(19)-8;
  for i := 1 to n do write(a[i], ' ');
  writeln;
  
  // Сортировка
  for i := 1 to n-1 do begin
    m := i;
    for j := i+1 to n do
      if a[j] < a[m] then m := j;
      
    if m <> i then begin
      j := a[m];
      a[m] := a[i];
      a[i] := j;
    end;
  end;
  for i := 1 to n do write(a[i], ' ');
  writeln;
  
  // поиск наибольшей разности
  m := a[2] - a[1];
  for i := 3 to n do
    if a[i] - a[i-1] > m then 
      m := a[i] - a[i-1];
  writeln ('разность = ', m);
end.