Даю 100 баллов. Напишите программу в паскале очень срочно​

===== 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.