while(x:?read(?-,?-,~))#~do dispterms(sum(i^2,i,1,x));