Арифметические и логические выражения. Стандартные функции.

[Сержuk]

Вычислить значение при a=sqrt(3) ; b=cos(e^a); x=7tan(pi/4). Найти значение переменной w равной true при v принадлежащем одному из отрезков: [-25;-1] или [8;36] а в противном случае w равна false.

[Mad_Cat]

var a,b,x,v,t:real;
     w:boolean;
begin
a:=sqrt(3);
b:=cos(exp(a));
x:=7*sin(pi/4)/cos(pi/4);
t:=exp(b*ln(a));
t:=sin(t);
t:=exp(t);
v:=t-(ln(abs(-a)))/(x-2*b/a);
w:=false;
if ((v>=-25) and(v<=-1)) or ((v>=8) and (v<=36)) then w:=true;
writeln('v=',v:6:3);
if w writeln('w=true')
 else writeln(w=false);
readln;
end.