Составить функцию, которая обретает среднее арифметическое всехэлементов непустого перечня L.

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программка не работает, обновите версию!

type
  tL=Listlt;integergt;;

function Avg(L:tL):=L.Average;

function Cont(L:tL; e:integer):=L.Contains(e);

function Occurs(L:tL; e:integer):=L.Where(t-gt;t=e).Count;

begin
  var MyList:=Lst(3,8,12,5,16,9,5,-2,7,0,5,-1);
  MyList.Println;
  Writeln('Среднее одинаково ',Avg(MyList):0:3);
  var k:=ReadInteger('Введите элемент для поиска:');
  Writeln('Есть ли такой элемент в перечне? ',Cont(MyList,k));
  Writeln('Количество таких частей одинаково ',Occurs(MyList,k))
end.

Пример
3 8 12 5 16 9 5 -2 7 0 5 -1
Среднее одинаково 5.583
Введите элемент для поиска: 5
Есть ли таковой элемент в перечне? True
Количество таких элементов одинаково 3