maxList([[_,_,Max,_,_]], Max). /* List of one element */
maxList([[_,_,A,_,_]|F], Max):- maxList(F, B), Max is max(A, B).

:- maxList([[1,3,4,5,6], [2,4,5,15,16]], X), write(X).