program bai_giai;
uses crt;
var n,q,i,t:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
write('Nhap q: '); readln(q);
t:=1;
for i:=1 to n do
if i mod 2=1 then t:=t-q*i else t:=t+q*i;
write(t);
readln;
end.
Tính tổng trên dựa theo quy luật nếu số chẵn thì cộng còn số lẻ thì trừ xen kẻ nhau nên dù n chẵn hay lẻ vẫn tính đúng.