viết công thức tính tổng các số tự nhiên là số chẵn từ 1100 ( có thể sử dụng câu lệnh điều kiện và câu lệnh lặp lại)

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.

uses crt;
var i,kq:longint;
begin
        clrscr; 
        for i:=2 to 1100 do
                 if i mod 2 = 0 then
                        inc(kq,i);
        write('Tong tu so chan tu 1 den 1100 la: ',kq);
        readln;
end.