nez nekdo neco vymysli:

function gggy(vstupy:integer;cislo:integer):integer;
var
p:integer;
begin

  if vstupy=5 then begin
      if (cislo mod 4) <> 0 then result:=((cislo mod 4)-1)*33+145 else
      result:=3*33+145
   end;

   if vstupy=4 then begin
      if (cislo mod 4) <> 0 then result:=((cislo mod 4)-1)*33+145 else
      result:=3*33+145
   end;

   if vstupy=3 then result:=142-((cislo mod 2)-2)*33;

if vstupy=6 then begin
 if (cislo mod 8)=0 then p:=8 else p:=cislo mod 8;

   if p<=4 then result:=p*33+33;
   if p>4  then result:=p*33+33+33;

  end;

if vstupy=7 then begin
 if (cislo mod 8)=0 then p:=8 else p:=cislo mod 8;

   if p<=4 then result:=p*17+107;
   if p>4  then result:=p*17+135;
  end;

if vstupy=8 then begin
 if (cislo mod 16)=0 then p:=16 else p:=cislo mod 16;

   if p<=4 then result:=p*17+40;
   if (p>4) and (p<=8)  then result:=p*17+30+35;
   if (p>8) and (p<=12) then result:=p*17+45+45;
   if p>12  then result:=p*17+15+95;
  // showmessage('y'+ inttostr(p));

   end;


end;

co to má delat ?
je to z tohot mého programu :
www.instaluj.cz/cz/katalog/vzdelavani/matematika-a -fyzika/karnaughova-mapa/

Jen prozatimne nez najdu ty podivne zdrojáky. Chtel jsem poslat nejakou lepsi fci, ale protoze
uz je to desne dlouho, tak sám nevím, co nekteré funkce delaji (zvlast ty, co se jmenujou haf, maj jako vstupni parametry: martu,budilk,mmm a vracej promenou zvast.. )