Используя средства языка Паскаль ,сформировать массив из 15 чисел по формуле Ai=cos 5i-1/корень из i^3+9. Написать функцию для подсчета кол-ва элементов массива ,значения которых меньше среднего арифметического его элементов

const  n=15;type  tm=array [1..n] of real;function fk(a:tm):integer;var  i,k:integer;  m:real;begin  m:=0;  for i:=1 to n do    m:=m+a[i];  m:=m/n;  k:=0;  for i:=1 to n do    if a[i]<m then k:=k+1;  fk:=kend;var  a:tm;  i:integer;begin  for i:=1 to n do  begin    a[i]:=cos(5*i)-1/sqrt(i*i*i+9);    Write(a[i]:13:9)  end;  Writeln;  Writeln('Элементов меньше среднего: ',fk(a))end.

PascalABC.NET 3.4.0, сборка 1677 от 17.06.2018Внимание! Если программа не работает, обновите версию!function CountCond(a:array of real):=a.Where(t->t<a.Average).Count;begin  var a:=ArrGen(15,i->Cos(5*(i+1))-1/sqrt((i+1)**3+9)); a.Println;  Writeln('Элементов массива, меньших среднего арифметического: ',CountCond(a))end.