[tim537]

Помогите пожалуйста дописать код этой функции


то, что я начал, а дальше не знаю:

Код:

 function f(x,a:real):real;
begin
    if   x<=0 then
         f:= sqrt(abs(x-1))-a
    else if x<=a then
         f:=

    end;