uses crt;

var n, i, d1, d2 : integer;

begin

clrscr;

write('Nhap so nguyen duong : ');

readln(n); d1 := 0; d2 := 0;

while n <> 0 do begin

if (n mod 2 <> 0) then

d1 := d1 + 1 else d2 := d2 + 1;

write('Nhap so nguyen duong : ');

readln(n); end;

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

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

readln

end.

uses crt ;
 var  n, dc, dl,i : longint ;
    begin
     clrscr ;
    n := 1 ;
   i := 1 ;
    while n<>0 do
        begin
        write('nhap n lan ',i,'=') ;
        readln(n) ;
        if (n mod 2= 0) and (n<>0)
            then dc := dc + 1 ;
        if n mod 2=1 
            then dl := dl + 1 ;
        i := i + 1 ;
        end ;
      writeln('co',dc:2,' so chan va',dl:2,' so le vua nhap .') ;
     readln
    end.

Ý tưởng code :

`+` Đầu tiên, ta gán biến n bằng 1 giá trị nào đó khác 0 để vòng lặp có thể chạy lần đầu tiên.

`*` Còn biến i để cho người nhập biết số lần nhập thôi, có thể bỏ qua nó !

`+` Các câu lệnh :

    `-` Yêu cầu nhập giá trị cho biến n

    `-` Xét n chia hết cho 2 thì biến dc (dịch ra là đếm chẵn) tăng lên 1 đơn vị

       `+` Lý do kiểm tra `n!=0` để tránh nhầm lẫn khi 0 không là số chẵn hay lẽ hay âm hay dương 

    `-` Xét n chia cho 2 dư 1 thì biến dl (dịch ra là đếm lẽ) tăng lên 1 đơn vị

    `-` Tăng biến i lên 1 đơn vị

`+` Kiểm tra điều kiện : nếu nhập n = 0 thì kết thúc vòng lặp ngay !

`+` Xuất giá trị của dc và dl ra màn hình, kết thúc