var  x, y, a, s: integer;
begin
repeat
if(y = 100) then break;
readln(x);
if(abs(x) > 300) then begin
writeln('×èñëî ïî ìîäóëþ íå ìîæåò áûòü > 300');
continue
end
else 
if(x mod 8 = 0) and (x <> 0) then begin
inc(a);
s := s + x;
end;if(x <> 0) then inc(y);
until(x = 0);
writeln('Ñð. àðèô: ', s/a);
end.