a,
Var a: array (1...250)of integer;

      n,i,t: integer;
begin
 write (' nhap so luong phan tu:'); readln (n);
 t:=0;

 for i:=1 to n do 

  begin
   write ('A(',i,')=');

   readln (A(i));

   if (A(i) mod 2=0) then t:=t+ A(i);

  end;

write('tong cac phan tu chan trong day:',t);

readln;
end.

var a:array[1..250] of integer;n,i:integer;

procedure xl;

var t,d:integer;

begin

t:=0;

              for i:=1 to n do

              begin

                          if a[i] mod 2=0 then t:=t+a[i];

               end;

writeln(t);

d:=0;

for i:=1 to n do

           if a[i]<=0 then inc(d);

write(d);

end;

begin

           assign(input,'bt.inp');reset(input);

           assign(output,'bt.out');rewrite(output);

            readln(n);

            for i:=1 to n do read(a[i]);

            xl;

            close(input);

            close(output);

end.