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)); 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.