Программа для вычисления арифметич.выражений-проверьте пожалуйста...

Задание:
Составить программу линейной структуры для вычисления арифметических выражений по заданному значению аргументов. Значение аргумента ввести с клавиатуры.


Моё решение: (ПОМОГИТЕ НАЙТИ ОШИБКИ)

program vetvi;
uses crt;
const e=0.00000001;
var x,y,A,B,C,D:real;
BEGIN
clrscr;
write('Введите x=');
readln(x);
if (x >1) then
begin
B:=exp(ln(exp(x)-2.85))*1/3;
if b>1+e then
begin
A:=exp(ln(2)*sin(x));
C:=exp(-x)-sin(x);
D:=exp(ln(sin(x)*9));
y:=((A-B)/C)+D;
writeln('При x=',x:7:3,' y=',y:10:5)
end
else
writeln('При x=',x:7:3,' y *не существует');
readkey
END.

Не считает при значениях 4, 5,6...10,11,12...16,17,18 и т.д....В чем ошибка???