Pascal.Как сделать?

[Quake-Ermak]

Нужна помощь

[Quake-Ermak]

по этой формуле нужно написать текст программы

[Don Karleone]

ICQ: 593-013-807

[Don Karleone]

var
  x,l,a,b,c: real;

Function ArcCos(x: Real): Real;
Begin
  If x = 0 Then ArcCos := Pi/2
  Else ArcCos := ArcTan(Sqrt(1 - Sqr(x)) / x) + Pi * Byte(x < 0)
End;


begin
  readln(a,b,c);
  x:=sin(a+Sqr(b)-abs(c)) / (a+Sqr(b)-abs(c));
  l:=Sqrt(abs(a/b)) * (arctan(x/Sqrt(1-Sqr(x))) + ArcCos(x));
  writeln(l:1:7);
  readln;
end.