/*
  max(X,Y,R)

  Predicado que comprueba si R es el máximo de X e Y

  Argumentos
  + X:
    - Significado: número
    - Tipo: entrada

  + Y:
    - Significado: número
    - Tipo: entrada

  + R: 
    - Significado: número
    - Tipo: entrada y salida
*/

max(X,Y,X):- X >= Y, !.

max(_,Y,Y).
