viết chương trình tính tổng các số lẻ liên tiếp từ 1 đến N sử dụng For..do

Program abc; 

Var i, n, T:integer; 

Begin

     Writeln(‘Nhap so N’); 

     Readln(n); 

     T:=0;

     For i:= 1 to n do

        If i mod 2 = 1 then T:=T+i;

     Write(‘Tong cac so le la: ‘,T); 

     Readln; 

End.