Đây nha
uses crt;
var i,n,t : integer;
BEGIN
clrscr;
t:=0;
Write('Nhap vao so n: '); readln(n);
For i:=1 to n do
begin
write(i,' ');
if i mod 2=1 then
t:=t+i;
end;
Writeln(' ') ( Dòng này là không cần thiết nha, mình thêm vào để ... thử bỏ đi ròi bt )
Writeln('Tong cac day so le la: ',t)
readln;
END.