[_SLY_]

и я забыл этот самый результ во второй ветке... так что вот, поправил:

Код:

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