PROGRAM F3
INTEGER :: X,Y,Z,A,B,XMAX,U
XMAX=100
DO X=2,XMAX
DO Y=1,X
Z=X-Y
A=X**3-Y**3-Z**3
B=3*X*Y*Z
IF (A.EQ.B) THEN
PRINT*,X,Y,Z
!READ*,U
END IF
END DO
END DO
END PROGRAM