var f1, f2: text;
a, n: integer;
S: longint;
Tb: real;
Begin
Assign(f1, 'anh.tnp'); reset(f1);
Assign(f2, 'kq.out'); rewrite(f2);
N:=0; S:=0;
While not eof(f1) do
Begin
Readln(f, a);
If (a mod 2 = 0) then
Begin
S:=s + a;
Inc(n);
End;
End;
Tb:=s/n;
Writeln(f2, 'tong cac so chan: ', s);
Write(f2, 'trung binh: ', tb);
Close(f1); close(f2);
End.