function TForm1.Solve(const px, py : integer) : integer;
Type
   T_MX_ID = (miLeft, miRight, miTop, miBottom, miFront, miUnFront);
const
    MX_Relations : array[T_MX_ID, T_MX_ID] of Boolean = ((True, False, True, True, False, True),
                                                         (True, False, True, True, False, True),
                                                         (True, False, True, True, False, True),
                                                         (True, False, True, True, False, True),
                                                         (True, False, True, True, False, True),
                                                         (True, False, True, True, False, True));
    General = miFront;
    Power = ((Ord(High(T_MX_ID)) +  1 )*(Ord(High(T_MX_ID)) +  1 ));
Var
   i, j : T_MX_ID;
   ks, Nextks : set of T_MX_ID;
begin
   ks := [];
   for i := Low(T_MX_ID) to High(T_MX_ID) do begin
      Nextks := [];
      if (px*py) div Power = (Ord(i)*Ord(General)) div Power then ks := ks + [i];
      for j := High(T_MX_ID) downto Low(T_MX_ID) do begin
         if MX_Relations[i][j] then
            Nextks := Nextks + [j]
         Else
            Nextks := Nextks + ([j] * ks);
      end;
      ks := (ks - Nextks) + (Nextks - ks);
   end;
   Result :=  0 ;
   for i := Low(T_MX_ID) to High(T_MX_ID) do begin
      if i in ks then Result := Result +  1 ;
      Result := Result shl  1 ;
   end;
end;