!µ±RermatµÄLast TheoremΪÕæʱÕýÈ·
!HPF$ INDEPENDENT, NEW(ix, iy, n, z, zi)
¡¡¡¡¡¡¡¡DO i = 1, 10
¡¡¡¡¡¡¡¡forever: DO
¡¡¡¡¡¡¡¡¡¡¡¡READ (i, '(2I12,I3') ix, iy, n
¡¡¡¡¡¡¡¡¡¡¡¡IF (ix<=0 .OR. n<=2) &
¡¡¡¡¡¡¡¡¡¡¡¡¡¡EXIT forever
¡¡¡¡¡¡¡¡¡¡¡¡z = (ix**n + iy**n) ** (1.0/n)
¡¡¡¡¡¡¡¡¡¡¡¡WRITE (i+10, '(E18.6)') z
¡¡¡¡¡¡¡¡¡¡¡¡zi = FLOOR( z )
¡¡¡¡¡¡¡¡¡¡¡¡IF (zi == z) THEN
¡¡¡¡¡¡¡¡¡¡¡¡PRINT *, 'Fermat was wrong!'
¡¡¡¡¡¡¡¡¡¡¡¡PRINT *, 'Notify Andrew Wiles!'
¡¡¡¡¡¡¡¡¡¡¡¡¡¡GOTO 100
¡¡¡¡¡¡¡¡¡¡¡¡END IF
¡¡¡¡¡¡¡¡¡¡END DO
¡¡¡¡¡¡¡¡END DO
100¡¡¡¡CONTINUE