Найти значение выражения

var
  r, t, p, x, a, b: real;
 
begin
  a := 2.4;
  b := -4.1;
  x := -0.6;
  if x > 0 then
    p := b + (exp(a * a - 1) + power(cos(a * x * x), 3)) / (b * x * x * ln(a * a * a * a * a - x))
  else
  if x = 0 then
  begin
    t := power(tan(a * a * b), 3);
    r := a * a * (x + t);
    p := power(r, 1 / 3);
  end
  else
    p := (a * a - sqr(sin(power((8 - x * x), 3)))) / (0.5 * x * sqrt(abs(a * x * x - b * b * b)));
  writeln(p);
end.

var
    a,b,x,p,y:real;
begin
    readln(a,b,x);
    if x>0 then p:=b+(exp(sqr(a)-1)+(sqr(cos(a*sqr(x)))*cos(a*sqr(x))))/(b*sqr(x)*ln(exp(5*ln(a))-x))
            else if x=0 then begin
                y:=sqr(a)*b;
                p:=exp(1/3*ln(sqr(a)*(x+abs(sqr((sin(y)/cos(y)))*(sin(y)/cos(y))))));
                end
                else p:=(sqr(a)-sqr(sin(exp(3*ln(8-sqr(x))))))/(0.5*x*sqrt(abs(a*sqr(x)-(b*b*b))));
    writeln(p:9:3);
end.