program one2n
      write(*,*)'What is N?'
      read(*,*) n
      m=0
      do i=1,n
        m=m+i
      enddo
      write(*,*)'1+2...+N=',m
      end