阅读下列FORTRAN77程序：INTEGERA（4，4）DATAA/1，2，3，4，5，6，7，8，9，10，11，12，13，14，15，16/WRITE（*，100）F（A93）100FORMAT（1X，F4.1）ENDFUNCTIONF（B，N）INTEGERB（N，N）F=0．0D010K=1，N10F=F+B（K，K）END上述程序运行后，输出结果为（）。

A.19.0

B.9.0

C.8.0

D.18.0