===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var m := ReadSeqInteger('Введите последовательность:', n)
.Where(p -> p mod 8 = 0)
.DefaultIfEmpty
.Average;
if m > 0 then
Writeln(m)
else
Writeln('Элементов, кратных 8, нет')
end.
