10. F(a, b, c) = ¬a V (c /\ b) V (¬a/\ c)
построить схему номер 10.

Var a:array[1..100,1..100] of integer;                     
            N,M,i,j,min,kmin:integer;
begin
readln(N,M);
min:=10000;
kmin:=0;     
for i:=1 to N do begin           
  writeln();         
      for j:=1 to M do begin           
               a[i,j]:=random(50);
                 write(a[i,j],'  ');         
               if min = a[i,j] then
                            kmin:=kmin+1           
               else if min > a[i,j] then begin
                                        kmin:=1; min:=a[i,j];
                            end;         
          end;     
end;
writeln();
write(min,' ',kmin);
readln();
end.

Итак первые два символа кодируются кодовыми словами 0 и 10. Найдём для остав­ших­ся трех сим­во­лов наи­бо­лее ко­рот­кое пред­став­ле­ние, удо­вле­тво­ря­ю­щее усло­вию Фано. Из двузначных чисел можно взять 11, но тогда невозможно подобрать трехзначное число для четвертого символа, по этому не берем. Единственное подходящее трехзначное число - 110 (111 не подходит по той же причине. что и 11). Аналогично выбираем числа 1110 и 11110. 
В итоге получается ряд: 0, 10, 110, 1110, 11110.
Общая длина = 1+2+3+4+5=15