'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'