(来学网)阅读下列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)
D010I=1，3
10A(I)=B(I)-I
F=A(1)+A(2)+A(3)
X=1．0-F
END
执行上述程序后，输出的X值为(　　)。