阅读下列FORTRAN程序：
    DIMENSIONA(3)
    DATAA/3.0,2.0,1.0/
    X=F(A)
    WRITE(*,100)X
    100FORMAT(1X,F3.1)
    END
    FUNCTIONF(B)
    DIMENSIONA(3),B(3)
    DO10I=1,3
    10A(I)=B(I)-I
    F=A(1)+A(2)+A(3)
    X=1.0-F
    END
    执行上述程序后，输出的X值为______。