program one2n_again
 1000 write(*,*)'What is your N? (0 to stop)'
      read(*,*)n
      if(n==0)stop
      m=0
      do i=1,n
        m=m+i
      end do
      write(*,*)'1+2+...+',n,'=',m
      goto 1000
      end