Вычислить функцию по заданным условиям, Надо вычислить значение функции при разных выборках Опции

[Leya]

Код

program Lab_2;
        uses crt;
        var
           F,a,b,c,d,x:real;
           q:char;
        begin
           ClrScr;
           writeln('a=');
           readln(a);
           writeln('b=');
           readln(b);
           writeln('c=');
           readln(c);
           writeln('d=');
           readln(d);
           x:=0.2*sqrt(a)/(sin(b)/cos(b));
                 if x in (a,b) then F:=exp(sin(x)**3)+ln(arctan(x))
                 else if x in (c,d) then F:=sqrt(x)*sin(x/a)
                 else F:=ln(a+3*exp(a*x)));
           writeln (' a= ', a,' b= ', b,' c= ', c,' d= ', d,' x= ', x,' F= ', F);
           readln(q);
        end.

Выдает ошибку.

А выражение выглядит так:
^ - возведение в степень
F(x)=
{exp^(sin^3(x))+ln(arctg(x));
(x^1/2)*sin(x/a);
ln(a+3*(exp^ax))},
если x принадлежит |a,b|, если x принадлежит |c,d|, в остальных случаях.

x=0,2*(a^1/2)/tg(b),
a=4.44
b=3.076
c=6.03
d=8.4

За меня решать не прошу... просто обьясните что у меня не так в коде (шутку про ДНК я знаю). Я пишу программу второй раз в жизни. Прошу не ругать и не стебацца. Заранее спасибо за помощь.

Добавлено через 3 мин.
Если бы можно было у кого-то спросить еще.. я бы не стала тратить чужое время на это. Но мучать некого...

[Leya]

2 Lapp Большое спасибо, я попробую.

Добавлено через 11 мин.
Большое спасибо за помощь, все работает