Вычислить значение выражения с учетом области допустимых значений

[MCoder]

Вот программа которую решаю
Код Pascal

 
program MAX;
var a,b,c,d,y,e,f,x: real;
begin
readln(x);
a:=exp(e*ln(x+1))+sin(x)/cos(x);
b:=exp(y*ln(ABS(x)));
c:=sin(x)+exp(e*ln(x+y));
 if a>0 then
 
     if b>0 then
        writeln (sqrt(a)*(ln(-sqrt(b))-c))
     else writeln('Подлогарифмическое выражение  <= 0 ')
  else writeln (Корень <=0 ');
  
end.

Но при вводе числа с клавиатуры пишет либо корень<=0 либо логарифм<=0. Уже кучу разных чисел перепробывал,но толку не какого,значит не так решил, не могу найти что не так,подскажите пожалуйста

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

[rubius2008]

Во-первых, переменная e, по умолчанию равна нулю, что приводит к последующему неверному вычислению выражения.
Во-вторых, e^(x+y) {e в степени} в паскале записывается как exp(x+y) и все.
В-третьих, у вас неверно вычисляется b.

[MCoder]

Сообщение от rubius2008

Во-первых, переменная e, по умолчанию равна нулю, что приводит к последующему неверному вычислению выражения.
Во-вторых, e^(x+y) {e в степени} в паскале записывается как exp(x+y) и все.
В-третьих, у вас неверно вычисляется b.

а что в b не правильно?

[rubius2008]

Вычисляется не то, что нужно, попробуйте вот так

b:=exp(-sqrt(x)*ln(y));
...
          writeln (sqrt(a)*(ln(b)-c))