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