INTEGERB(4，4)，P
N＝4
CALLSUB(B，N)
WRITE(*，*)P(B，N)
END
SUBROUTINESUB(Q，N)
INTEGERM，N，K，Q(N，N)
D010K＝1，N
D010M＝1，N
10Q(M，K)＝8*(K-1)+M
END
INTEGER FUNCTI()N P(B，N)
INTEGERB(N，N)
P＝0
D0100K＝1，N
100P＝P+B(K，K)
END
运行上述程序后，输出的结果为()。
(A) 55
(B) 56
(C) 57
(D) 58
参考答案