var a,i,pol,sum,otr:integer; // задача 1

begin

 pol:=0;

 sum:=0;

 for i:=1 to 10 do begin

   read(a);

   if a>0 then begin

   pol+=1;

   sum+=a;

  end;

   if (a<0) and (a mod 2 = 0) then otr+=1;

 end;

 writeln('Ср.арифметическое полож.чисел = ', sum/pol);

 writeln('Кол-во четных отрицательных чисел = ', otr);

end.

var i,pr:integer; // задача 2

begin

 pr:=1;

 for i:=1 to 10 do begin

   if i mod 2 = 0 then

     pr*=i;

   end;

print(pr);

end.