Question

PascalABC.NET...........................

Answer 1

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (x,y):=ReadReal2('Введите x и y:');
  var z:=Ln(Abs((y-Sqrt(Abs(x)))*(x-(y/(x+x*x/4)))));
  Writeln(z)
end.