Дано уравнение y=2 в степени(-x)*(✓x+✓✓x)+tg(x) написать его решение в турбо паскале

[Savelyev Vsevolod]

Дано уравнение y=2 в степени(-x)*(✓x+✓✓x)+tg(x) написать его решение в турбо паскале

Я написал код но не знаю как исправить

Var x,y,z,t,a,b:real;
Begin
  Readln(x);
  Write(x);
  Z:=sqrt(sqrt(abs(x)));
  Y:=sqrt(x+z);
  T:=sin(x)/cos(x);
  A:=exp(2*ln(-x));
  If (y>=0) then b:=a*y+t;
 Write('b:=');
End.

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

[min@y™]

51.png

[ura_111]

Да, похоже проблема в отрицательной степени:

1.jpg


p.s.1: а в паскале тригонометрические функции берутся от градусов или радиан? Я не в курсе - проверь.
p.s.2:компьютерный расчёт обязательно сверь с ручным.

[ura_111]

А логарифм можно взять из отрицательного числа?
Проверь.