đếm số lượng số chẵn và số lượng số lẻ trong n số tự nhiên đầu tiên ( với n được nhập từ bàn phím n >=10) cần gấp mn ơi

uses crt;

var i, n, d1, d2 : integer;

begin

clrscr;

d1 := 0; d2 := 0;

write('Nhap so n = '); readln(n);

for i := 1 to n - 1 do

if i mod 2 = 0 then d1 := d1 + 1

else d2 := d2 + 1;

writeln('Trong ', n ,' so tu nhien dau tien : ');

writeln('Co ', d1 ,' so chan');

writeln('Co ', d2 ,' so le');

readln

end.

uses crt;
var n, i, cnt, res: Word;
begin
clrscr;
    readln(n);

    for i:=1 to n do
        if i mod 2 = 0 then
            inc(cnt)
        else
            inc(res);

    writeln('Chan: ', cnt + 1);
    writeln('Le: ', res);
readln;
end.