使用言語:BASIC 110 s=0:b=0:i=0 120 if p=q then goto 190 130 if pq then s=q,b=p 150 i=s+1 160 sum=sum+i 170 i=i+1 180 if i