Nhập vào số nguyên n,tính tổng các số chẵn,lẻ trong phạm vi từ 1 đến n
Xin lỗi mọi người đã làm phiền, nhưng mình thật sự cần sự giúp đỡ. Ai có thể dành chút thời gian để trả lời câu hỏi mình đang mắc phải không?

Program HOC24;

var i,n: integer;

tc,tl: longint;

begin

write('Nhap N: '); readln(n);

tc:=0; tl:=0;

for i:=1 to n do if i mod 2=0 then tc:=tc+i else tl:=tl+i;

writeln('Tong chan la: ',tc);

write('Tong le la: ',tl);

readln

end.