решить в Pascal

[Anytka99]

Нужно решить уравнение в Pascal

[puporev]

Для любого Паскаля. Но вообще нужно указывать версию.

const x=-2.235e-2;
      y=2.23;
      z=15.221;
var a,b,c,f:real;
begin
a:=exp(abs(x-y))*exp(ln(abs(x-y))*(x+y));
b:=arctan(x)+arctan(z);
c:=exp(ln(exp(ln(-x)*6)+sqr(ln(y)))/3);
f:=a/b+c;
write('fi=',f:0:3)
end.