Viết phương trình tính tổng S= 2+4+6+…1000

program tinhtong;

uses crt;

var t:longint;

       i:integer;

begin

clrscr;

t:=0;

for i:=2 to 1000 do

  if i mod 2 =0 then t:=t+i;

write(‘Tong cac so chan tu 1->1000 la: ‘,t);

readln

end.