Неизвестное имя 'arcctg'

function fact(n:integer):longint;
begin
 if n=1 then fact:=1
   else fact:=fact(n-1)*n;
end;
 
var a:array[1..30] of real;
    b:array[1..24] of real;
    i,j,k,m,n:integer;
    sum,suma,arif,x:real;
begin
 write('Vvedit n: ');
 read(n);
 k:=5;m:=15;suma:=0;sum:=0;j:=1;
 a[1]:=n;
 a[2]:=n-1;
 a[3]:=n+1;
 a[4]:=2*n;
 a[5]:=2*n+41;
 a[6]:=n/2;
 a[7]:=17*n-32;
 a[8]:=45-n;
 a[9]:=32-2*n;
 a[10]:=17;
 a[11]:=12;
 a[12]:=sqr(n)+1;
 a[13]:=sqr(n-5);
 a[14]:=45*n;
 a[15]:=54-2*n+ln(n);
 a[16]:=24;
 a[17]:=35-n;
 a[18]:=12+ln(n);
 a[19]:=31-ln(sqr(n));
 a[20]:=1000+2*n-ln(exp(3*ln(n)));
 a[21]:=27;
 a[22]:=14;
 a[23]:=n/5;
 a[24]:=3*n/8;
 a[25]:=47-sqr(n)*ln(n/2);
 a[26]:=24+sqr(n);
 a[27]:=n-ln(n);
 a[28]:=sqr(n)+(ln(sqr(n))/fact(n));
 a[29]:=ln(n)/n;
 a[30]:=n*ln(1/n);
 
 for i:=1 to 30 do
    writeln('a',i,'=',a[i]:6:3);
 
 for i:=k to m do
  begin
   b[j]:=a[i];
   j:=j+1;
  end;
 
 for j:=1 to 24 do
  suma:=suma+b[j];
 
 arif:=suma/24;
 writeln('Ser.arifm.= ', arif:6:3);
 
 
 for i:=1 to 30 do
  begin
   if arif=a[i] then x:=1
     else x:=0
  end;
 
 if x=1 then
    writeln('Ser. arifm. ye v pochatkovymy masyvi')
   else writeln('Ser. arifm. nemae v pochatkovymy masyvi');
 
 for i:=(k-3) to (m+3) do
  sum:=sum+(a[i]+(arcctg(a[i])));
  writeln('Suma= ',sum);
 readln;
end.

function arcctg(x : real) : real;
begin
  if x >= 0 then arcctg := arcsin(1 / sqrt(1 + sqr(x)))
  else
    arcctg := 3.1415926 - arcsin(1 / sqrt(1 + sqr(x)))
end;