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 

Program BTT;
Uses crt;
Var n,i,dc,dl: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        dc:=0; dl:=0;

        For i:=1 to n do
        Begin
                If i mod 2 = 0 then inc(dc);
                If i mod 2 = 1 then inc(dl);
        End;

        Writeln('Co ',dl,' so le');
        Write('Co ',dc,' so chan');
        Readln
End.