program one2ten
      m=0
      do i=1,10
        m=m+i
      end do
      write(*,*)'1+2+...+10=',m
      end