$\text{Công thức tổng quát:}$
Uses crt;
Var n,i,s:integer;
Begin
Clrscr;
Write('Nhap n: '); readln(n);
For i:=1 to n do s:=s+2*i;
Write('s la: ',s);
Readln
End.
$\text{Áp dụng vào bài 9 và 10:}$
Program Pro;
Uses crt;
Var S,i:integer;
Begin
Clrscr;
S:=0;
For i:=1 to 100 do S:=S+2*i;
Writeln('S: ',S);
Readln
End.