begin;integerprocedureSIGMA(X,I,N);valueN;integerX,I,N;begin;integerSUM;SUM:=0;forI:=1step1untilNdoSUM:=SUM+X;SIGMA:=SUM;end;integerQ;PRINTNLN(SIGMA(Q*2-1,Q,7));end