单项选择题

有程序:DIMENSIONA(2,2)INTEGERA.YY=0D0201=1,2D020J=1,2A(1,J)=I*I+J*JY=Y+A(1,J)20CONTINUEWRITE(*,*)YEND此程序运行的结果()

A.16
B.20
C.27
D.30