4 10 14 плз помогите не могу решить

//Pascal ABC.NET 3.1 сборка 1256

//4
//a
Var
x,y:real;
begin
read(x,y);
if ((x<0) and (y>0)) or ((x>0) and (y<0)) then write('Комплексное число') else write(abs(sqrt(x*y)-5));<br> end.

//б
Var
x:real;
begin
read(x);
if x=0 then write('Попытка деления на 0') else write((2*(5*x-1))/(7*x));
end.

//10
Var
x:real;
begin
read(x);
if x>0 then write(power(x,3)) else write(3*exp(x));
end.

//14
Var
x:real;
begin
read(x);
if x>-4 then write((5*sqr(x)+2)/(x+4)) else write(3*sqr(x)+7);
end.