Составить функцию, которая находит среднее арифметическое всех элементов непустого списка l. составить функцию, которая определяет, входит ли элемент е в список l. составить функцию, которая подсчитывает число вхождений элемента с указанным пользователем значением в список l. (паскаль)

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

type
  tL=List<integer>;

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

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

function Occurs(L:tL; e:integer):=L.Where(t->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

1.12(10)=1100(2)     11.118(10)=1110110(2)       21.111(10)=11010010100(2)

2.15(10)=1111(2)     12.205(10)=11001101(2)      22.222(10)=11011110(2)

3.25(10)=11001(2)    13.394(10)=110001010(2)     23.333(10)=101001101(2)

4.36(10)=100100(2)   14.429(10)=110101101(2)     24.444(10)=110111100(2)

5.47(10)=101111(2)   15.533(10)=1000010101(2)    25.555(10)=1000101011(2)

6.58(10)=111010(2)   16.671(10)=1010011111(2)    26.666(10)=1010011010(2)

7.69(10)=1000101(2)  17.786(10)=1100010010(2)    27.777(10)=1010011010(2)

8.71(10)=1000111(2)  18.892(10)=1101111100(2)    28.888(10)=1010011010(2)

9.82(10)=1010010(2)  19.900(10)=1110000100(2)    29.999(10)=1111100111(2)  

10.91(10)=1011011(2) 20.1684(10)=11010010100(2)  30.254(10)=11111110(2)

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

function CycleFraction(a, b: integer): string;

begin

 Result := (a div b).ToString;

 a := a mod b;

 if a = 0 then exit;

 Result += ','; // разделитель

 var k := Result.Length + 1;

 var ost := new SortedList<integer, integer>;

 ost.Add(a, k);

 while True do

 begin

   a *= 10;

   Result += (a div b).ToString;

   a := a mod b;

   if ost.ContainsKey(a) then

   begin

     var p := ost.Get(a);

     Result := Result?[:p] + (a <> 0 ? '(' + Result?[p:] + ')' : ''.ToString);

     exit

   end

   else

   begin

     k += 1;

     ost.Add(a, k);

   end

 end

end;

begin

 var (a, b) := ReadInteger2('Введите числитель и знаменатель:');

 CycleFraction(a, b).Println;

end.