read(*,*) i write(*,*) i*(i+1)/2 end