我想问一个填程题：
找两个色子，可以出现2-12点，每个点数的出现次数并不相（如：1+6=2+5=3+4=4+3=5+2=6+1，7点的出现次数为6次），完成程序统计各点数出现的次数，并输出出现次数最多的点数。
DIM A（12）
FOR I=1 TO 6
FOR J=1 TO 6
A（I，J）=【 （1） 】
NEXT J
NEXT I
X=0：Y=0
FOR I=1 TO 12
IF 【 （2） 】 THEN X=I：【 （3） 】
NEXT
PRINT X，Y
END