var
  c, d: array[1..12] of integer;
  i, j, j_ch, s: integer;

begin
  j := 0;
  j_ch := 0;
  s := 0;
  writeln('Ââåäèòå 12 ÷èñåë (êàæäîå ñ íîâîé ñòðîêè):');
  for i := 1 to 12 do
  begin
    readln(c[i]);
    if abs(c[i]) < 5 then
    begin
      j := j + 1;
      d[j] := c[i];
      if d[j] mod 2 = 0 then
      begin
        s := s + d[j];
        j_ch := j_ch + 1;
      end;
    end;
  end;
  writeln('Ñðåäíåå àðèôìåòè÷åñêîå ÷åòíûõ ýëåìåíòîâ íîâîãî ìàññèâà ðàâíî ', s / j_ch);
end.