radar([f22,t50,sukho35,f35,f14,f18,f15,f16,f4]).
engine([f35,t50,sukho35,f22,f14,f18,f15,f16,f4]).
manover([sukho35,t50,f22,f35,f18,f15,f14,f16,f4]).
weapone([sukho35,f22,f35,t50,f18,f14,f15,f16,f4]).
speed([f14,f4,sukho35,f22,t50,f15,f35,f18,f16]).
 
 
bestradar(X,[X|Tail]).
bestengine(X,[X|Tail]).
bestmanover(X,[X|Tail]).
bestweapone(X,[X|Tail]).
bestspeed(X,[X|Tail]).
 
 
 
bestfighterjet(X,Y):- bestfighterjet(X,radar(X,[X|Tail])),
                   bestfighterjet(X,engine(X,[X|Tail]),
                  bestfighterjet(X,manover(X,[X|Tail])),                            bestfighterjet(X,weapone(X,[X|Tail])),
                          bestfighterjet(X,speed(X,[X|Tail])).