EXTERNALPP
INTEGER P，PP，Q(4，4)
DATAQ/1，2，3，4，5，6，7，8，9，10，11，12，13，14，15，16/
WRITE(*，*)P(Q，4，PP)
END
INTEGER FUNCTION PP(B，N)
INTEGERB(N，N)
PP＝0
D010K＝1，N
10PP＝PP+B(K，K)
END
INTEGER FUNCTIONP(B，N，S)
INTEGER S，B(N，N)
P＝0
D()10K＝1，N
10P＝P+S(B，K)
END
运行上述程序后，输出的结果为()。
(A) 55
(B) 56
(C) 57
(D) 58
参考答案