Program kiemtra;
Uses crt ;
var chan,le,n,i:integer;
begin
Clrscr;
Chan:=0; le:=0;
writeln('Nhap so nguyen n :'); readln(n);
for i:=1 to n do
If i mod 2 =0 then chan:= chan+ 1 else le:= le+1;
Writeln(' co so so chan la = ',chan);
Writeln(' co so so le la = ',le);
Readln
end.
Mình đã chạy được chương trình rồi á,dưới ảnh nha