do read(*,*,end=1)n print'(i0)',n*(n+1)*(n*2+1)/6 enddo 1 end