Нужна помощь с программой.

Question

Нужна помощь с программой.

---

Answer 1

Var
    x, y: real;
begin
   readln(x,y);
   writeln(ln(abs(x)) * ln(abs(x)) / exp(1/3*ln(abs(x)+abs(y))));
end.