function f(const x,a:real):real; begin if x<=0 then result := sqrt(abs(x-1))-a else if x>a then Power(Sin(2*a*x+pi),3) else result := (power(x,4) / 7) + a; end;