Помогите, пожалуйста, решить задачу?

Question

Помогите, пожалуйста, решить задачу?

Answer 1

Var x,y,z max,a,b,c: real;
begin
readln(a,b,c);
a:=exp(abs(x-y))+ln(1+z*z);
b:=exp(abs(x-y))-(1/2)*sqrt(1+z*z);
c:=exp(abs(x-y))+exp(1/3*ln(1+z*z));
max:=b*b*b;
if a>max then max:=a;
if c*c>max then max:=c*c;
writeln(max);
end.