PROGRAM VOISIN1
REAL :: truc
INTEGER :: Q,A,B,C,PA,PB,PC,MAX
MAX=1000
DO A=1,MAX
Q=6
PA=A*(Q*A**2+6-Q)/6
 DO B=1,A
 PB=B*(Q*B**2+6-Q)/6
   DO C=1,B
   PC=C*(Q*C**2+6-Q)/6
   IF((PA-PB-PC).EQ.0)THEN
   PRINT*,A,B,C
   END IF
   END DO
 END DO
END DO
END PROGRAM VOISIN1