do i=1 to 40;say(i+1)*i/2;end