###
Function t(n,m,k:integer):=max(n,m,k)<(n+m+k)-max(n,m,k); 
(1..1000).Wh(A->(1..1000).all(x ->not((t(x,11,18)=(not(max(x,5)>68)))and t(x,A,5)))).last.Print;