Уравнения (Паскаль)

[grabz]

Помогите пожалуйста преобразовать оба уравнения в код паскаля.
Сколько не пытался у меня выходит синтаксическая ошибка во втором уравнении:С

(19вариант)

Спасибо заранее

[WorldMaster]

Первая функция

uses  Math;


function f_x(x:double):double;
begin
 if x<0 then
 begin
  Result:=-4;
  Exit;
 end;

 if (x>=0)  and (x<1) then
 begin
   Result := x*x+2*x+6;
   Exit;
 end;

 if x>1 then
 begin
   Result := 2;
   Exit;
 end;
end;

Вторая функция.

uses  Math;

function fh_x(a,k,x,y:double):double;
begin
Result := 1.35*a+((k*y+2)/(Exp(x-3)+ Abs((Power(x*x+1, 1/4))/(y+ArcTan(x*x))))) * Power( Ln(2*x),3);
end;