program abc ;
uses crt ;
var  t : text ;
      A : array [1..50] of integer ;
      n,i,TB,dem : integer ;
begin 
 clrscr ;
 assign(t,'D:\W.txt');
 rewrite(t);
 Writeln('Nhap n : '); readln(n);
 TB := 0; 
 dem:=0; 
  For i:= 1 to n do 
    If A [ i ] mod 2 = 0 then
      begin
        dem:= dem +1; 
        TB := TB+A[ i ];
      end;
write(t,'Trung binh cong cac so chan la : ',TB/dem);
close(t);
readln;
end.