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

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.

program MAX;
var a,b,c,d,y,e,f,x: real;
begin
writeln('Введите x,y');
read(x,y);
if (x+1<=0)or(cos(x)=0) then
writeln('a не определено')
else
 begin
  a:=exp(e*ln(x+1))+sin(x)/cos(x);
  writeln('a=',a:0:3)
 end;
if x=0 then writeln('b не определено')
else
 begin
  b:=exp(y*ln(ABS(x)));
  writeln('b=',b:0:3);
 end;
if x+y<=0 then write('c не определено')
else
 begin
  c:=sin(x)+exp(e*ln(x+y));
  write('c=',c:0:3)
 end;
end.

program reshenie;
var a,x,y,b,c:real;
begin
  writeln(' Введите значение х' );
  readln( x);
  a:=sin(x);
  b:=x-2;
  c:=cos(x);
  if b<>0 then
     if c>0 then
        writeln (a/b-ln(c))
     else writeln('Подлогарифмическое выражение  <= 0 ')
  else writeln ('Знаменатель = 0 ');
end.