Решите функцию в pascal

Question

Решите функцию в pascal

---

Answer 1

PascalABC.NET 3.4.2, сборка 1887 от 30.11.2018

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

begin

 var x := ReadReal;

 var y := Sqrt((x * x - 16) / (x * (x + 8)));

 y.Println

end.