Viết phương trình tìm tổng số lẻ của 100 số tự nhiên đầu tiên

program bt; 

var i, T: integer; 

begin

     T:=0;

     for i:= 1 to 100 do

           if i mod 2 <>0 then T:=T+i; 

     write(‘Tong cua cac so le la:’,T); 

     readln; 

end.