Не могу решить задачу. Нахождение суммы. Pascal.

[Nekriloff]

Нужной решить


И у меня есть два вопроса:
1. Как находить arcctg в паскале?
2. И как находить Факториал?

Пока что получилось только вот что:

uses crt;
var x,s,n,f:real;
k:integer;
begin
writeln('Vvedite n');
readln(n);
writeln('Vvedite x');
readln(x);
s:=0;
f:=(???)(x*x-1);
for k:=1 to n do
begin
s:=exp(ln(f)*n)/(k+1)(???)*exp(ln(x)*(n+1));

[Nekriloff]

Достаточно будет ответа только на второй вопрос.

[IT-man]

как находить Факториал

или так

function FacIterative(n: Word): Longint; 
var 
f: LongInt; 
i: Integer; 
begin 
f := 1; 
for i := 2 to n do f := f * i; 
FacIterative := f; 
end;

или так

function FacRecursive(n: Word): LongInt; 
begin 
if n > 1 then 
   FacRecursive := n * FacRecursive(n-1) 
else 
   FacRecursive:= 1; 
end;

[Alex_FF]

arcctg x = pi/2 - arctg x
функция для вычисления арктангенса в паскале называется ArcTan