var m: array[0..6] of integer;
sum1, n: integer;
begin
sum:=0;
n:=0;
for i:=0 to 6 do
read(m[i]);
if (m[i] < 0) then
sum:=sum+m[i];
n:=n+1;
end;
writeln(sum/n);
end.
var m: array[0..6] of integer;
sum1, n: integer;
begin
sum:=0;
n:=0;
for i:=0 to 6 do
begin
read(m[i]);
if (m[i] < 0) then
begin
sum:=sum+m[i];
n:=n+1;
end;
end;
writeln(sum/n);
end.