begin;
    integer procedure SIGMA(X, I, N); 
      value N;
      integer X, I, N;
    begin;
        integer SUM;
        SUM := 0;
        for I := 1 step 1 until N do
          SUM := SUM + X;
        SIGMA := SUM;
    end ;
    integer Q;
    PRINTNLN(SIGMA(Q  2 - 1, Q, 7));
end;