INTEGER N,I,J,K,P,L
PRINT *,"请输入N值"
READ *,N
DO WHILE(N/=0)
    P=0
    DO     J=1,N**3,2
        K=J
        DO I=1,N
            P=P+K
            K=K+2
        END DO
        IF(N**3==P)     EXIT
        P=0
    END DO
    PRINT*,N,"=",J

    DO     L=1,N-1,
        PRINT *, "+",J+L*2
    END DO
    PRINT *,"请输入N值"
    READ *,N

END DO

END

提示
--------------------Configuration: 4_14 - Win32 Debug--------------------
Compiling Fortran...
D:\bao\fortran powerstation 4.0\4_14\Text2.f90
D:\bao\fortran powerstation 4.0\4_14\Text2.f90(18): error FOR3852: syntax error
D:\bao\fortran powerstation 4.0\4_14\Text2.f90(24): error FOR3542: END DO without DO
Error executing fl32.exe.
Text2.obj - 2 error(s), 0 warning(s)