program dayso;
uses crt;
var s,i,m,n,chan,le:integer;
      A: array[1..100] of integer;
begin clrscr;
writeln('nhap n='); readln(n);<br />writeln('nhap m='); readln(m);<br />for i:=m to n do<br />begin; writeln('A[i]='); readln(A[i]); end;
s:=0; chan:=0; le:=0;
for i:=m to n do 
begin;
s:=s+A[i];
if A[i] mod 2 = 0 then chan:=chan+1;
if A[i] mod 2 <> 0 then le:=le+1;
end;
writeln('tong cac so trong day la',s);
writeln('co tat ca',chan,' so chan trong day');
writeln('co tat ca',le,' so le trong day');
readln;
end.