помогите решить паскаль срочно!!!

var a1,a2,z,y,x:real;

begin

z:=3.76;

y:=2.122;

x:=-8.98;

a1:=sqr(z)+sqr(y)*x+ln(abs(x));

a2:=sqrt(z+y)-2.756;

writeln('Ответ: ',a1/a2);

readln;

end.

Ответ: 72.8820533771124

PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018

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

begin

 var (x, y, z) := (-8.98, 2.122, 3.76);

 Println((z * z + x * y * y + Ln(Abs(x))) / (Sqrt(z + y) - 2.756))

end.

72.8820533771124