Вычислить значение выражения

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

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

program z1;
 
var
  t, a, b, x, p: 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(a * a * a * a * a - x))
  else  
  if x = 0 then 
    p := 3 * (sqrt(sqr(a) * (x + abs(sin(sqr(a) * b))) / (cos(sqr(a)) * b) * (sin(sqr(a) * b)) / (cos(sqr(a) * b)) * (sin(sqr(a) * b)) / (cos(sqr(a) * b))))
  else
  begin
    t := 8 - sqr(x);
    p := (sqr(a) - sqr(sin(t * t * t))) / (0.5 * x * sqrt(abs(a * sqr(x) - b * b * b)));
  end;
  writeln(p:6:3);
end.