Nhập vào số nguyên dương ????. Xuất ra màn hình số lượng số lẻ và số lượng số chẵn trong các số {1,2, … , ????}, mỗi kết quả nằm trên một dòng

uses crt;

var n,d,s,i:word;

begin

clrscr;

write(‘n=’);

readln(n);

for i:=1 to n do

if i mod 2=0 then s:=s+1 else d:=d+1;

writeln(‘so luong le la:’,d);

writeln(‘so luong chan la:’,s);

readln

end.