Nếu đề là: Viết chương trình tính tổng các số tự nhiên là số chẳn từ 1 đến 1100 thì đây là chương trình nhé :D
program Min;
uses crt;
var i:integer; S:longint;
begin
clrscr;
S:=0;
for i:=1 to 1100 do
if i mod 2 = 0 then S:=S+i;
write('S=',S);
readln
end.