8.
var m,n,i,d:longint;
begin
write('Nhap m,n: '); readln(m,n);
for i:=m to n do
if i mod 2=0 then inc(d);
writeln('So so chan: ',d);
readln
end.
9.
var m,i,n,d: integer;
begin
write('Nhap m,n: '); readln(m,n);
for i:=m to n do
if i mod 2 <> 0 then inc(d);
writeln('So so le: ',d);
readln
end.
10.
var n,i,s: longint;
a:array[1..250] of longint;
begin
write('Nhap n: ');readln(n);
For i:=1 to n do
begin
read(s[i]);
if a[i] mod 2 =0 then s:=s+a[i];
end;
writeln('S = ',s);
readln;
end.