Помогите найти ошибку в коде и исправить её. Программа на паскаль 
program reshenie;
var a,x,y,b,c,d:real;
begin
writeln(' Введите значение х, y,c' );
readln( x,y,c);
a:=exp(ln(sin(x)/cos(x)/3));
b:=ln(c*(exp(-sqrt(abs(x)+y))));
d:=sin(x+y)+c*(exp(x+y));
if b<0 then
writeln (a*(b-d))
else writeln('Подлогарифмическое выражение <= 0 ')
end.

//должно быть боле нуля (комент преподавателя )

Задания по которому я делал этот код Ошибку я допустил где-то в левой части зд