Viết chương trình nhập vào từ bàn phím 2 số nguyên dương M N . Tính và đưa ra màn hình số lượng các số chẵn lẻ

Program Hotboy; 

Uses crt; 

Var M,N ,chan,le: word; 

Begin

Clrscr; 

Writeln('nhap tu ban phim so N'); Readln(N);

Writeln('nhap tu ban phim so M'); readln(M);

For i:= N to M do 

If i mod 2=0 then chan:= chan+1 else le:= le+1;

Writeln(chan,la so chan') ;

writeln(le,la so le);

Readln

End.

var m,n,c,l:longint;

begin

write('Nhap n: '); readln(n);

write('Nhap m: '); readln(m);

for i:=m to n do

if i mod 2= 0 then inc(c) else inc(l);

writeln('So chan la: ',c);

write('So le la: ',l);

readln

end.