Решение уравнения (Pascal)

[elbevel]

Друзья, при решении данного уравнения столкнулся с проблемой вычисления.Вот код программы, который почему-то не хочет у меня работать

uses crt;
var x,y,z,t,u,v,s,p,d:real;

begin
 clrscr;
 writeln('X Y Z -> ');
 readln(x,y,z);
 s:=(z-((z*z*z)/(sqr(y)+sqr(z))));
 u:=(1-(cos(s)/sin(s)));
 v:=(exp(sqr(x))+exp(sqr(y)));
 if (sqr(u)+sqr(y)) >= (sqr(y)+sqr(z)) then
 begin
  t := (ln(u+v)/ln(10));
   end else
 begin
 p:=sqr(u)+sqr(v);
   d:=(p/sqrt(1-sqr(p)));
     t := arctan(d);
   end;
 writeln('F=',t:0:5);
 readln;
end.

Я уже весь мозг себе вынес,решая эту задачу

[Stilet]

v:=(exp(sqr(x))+exp(sqr(y)));

 v:=(exp(-2*ln(sqr(x)))+exp(Y*y*ln(sqr(y))));

Правда не проверял...

[elbevel]

Спасибо, работает v считает а переменную t нет(((

[elbevel]

Что мне нужно конкретно поменять в коде?

[Don Karleone]

Сообщение от elbevel

Что мне нужно конкретно поменять в коде?

вроде все должно считать.

[elbevel]

не считает, выдает ошибку "Ошибка: неверная вещественная операция строка 17"

[ROMA2PVT]

ну во первых ты вывел только t,а u и v не вывел и во вторых

 if (sqr(u)+sqr(y)) >= (sqr(y)+sqr(z)) then

здесь v

 end else if (sqr(u)+sqr(v)) < (sqr(y)+sqr(z)) then

[elbevel]

Спасибо большое!Теперь работает!но,если вводишь в значении хотя бы 1 нуль, то не хочет считать

[veryfreshman]

Как вообще решаются уравнения в Паскале?
Например, 20*a+450=45*a+170?