===== PascalABC.NET =====
begin
var a := ReadArrInteger(80);
a.Where(p -> (p < 0) and (p mod 3 = 0)).Average.Println
end.
