Помогите решить задачу в Паскале,пожалуйста

Question

Помогите решить задачу в Паскале,пожалуйста

---

Answer 1

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var (A,B,C,D):=(1e5,5,2,2.5);

 Println(Sqrt(A/(2*Pi*(B-Sqrt(B*B-C*C))))+Sin(D))

end.

---