Viết chương trình tính tổng S = 2 + 4 + 6+-+2n

Program      tinh_tong;

Uses         Crt;

var          n,i,d : integer;

Begin

clrscr;

writeln(‘ nhap so n la:= ‘); readln(n);

d:=0;

for i:= 2 to n do

d:=d + 2*i;

write (‘ ket qua la:= ‘ , d);

readln;

End.