编辑代码

program main
INTEGER::ires=0
DO index1 = 1,10
  DO index2 = index1,10
   IF(index2 > 6)EXIT
   ires = ires+1
  END DO
END DO
WRITE(*,*) 'RESULT=',ires
END program main