function tah(a,b,k: integer):integer;
{ 1=vezmi k sirek z první hromádky, 2=z druhé, 3=z obou, 0=prohrál jsi }
var vysl:integer;
begin
 a:=a div k;                        { převedení na vyřešenou úlohu }
 b:=b div k;
 vysl:=(a AND 1)+2*(b AND 1);       { ber z těch hromádek, kde je lichý počet }
 if (vysl=0) then vysl=random(3)+1; { lichý počet je na obou }
 if (a=0) then vysl:=vysl AND 2;    { nelze brát z první hromádky }
 if (b=0) then vysl:=vysl AND 1;    { nelze brát z druhé hromádky }
 tah:=vysl;
end;