Математическое уравнение в Паскале

[vmilyoshin]

Помогите решить следующее задание:
sshot-1.png
Вот код:

program znachenie;

uses crt;

var y : integer;
var x, z : real;

BEGIN
     clrscr;
     writeln ('Введите значение "y":');
     read (y);
     
     x:= exp(1/5)*(ln(2.468/(exp(1/3)*(ln(3.69/(sqrt(10*10*10)))))); 
     z:= (sqr(x)+sqr(y))/(1-((sqr(x)-sqr(y))/2);

     writeln ('Результат равен: ',z);

     readln;
     readln;
END.

Помогите правильно написать код, а то я уже совсем измучился.

[Utkin]

Не обязательно вбивать сразу большую формулу. Разбейте вычисление Х и Z на ряд мелких подзадач.

[ROMA2PVT]

program znachenie;

uses crt;

var y : integer;
var x, z : real;

BEGIN
     clrscr;
     writeln ('Введите значение "y":');
     read (y);

     x:= exp(ln(2.468/(exp(ln(3.69/(sqrt(10*10*10)))/3)))/5);
     z:= (sqr(x)+sqr(y))/(1-((sqr(x)-sqr(y))/2));

     writeln ('Результат равен: ',z,' ',x);

     readln;
     readln;
END.

Не знаю насколько верно переделал с формулами у самого головная боль.Но если есть ответ то сверь.

[eldavad]

попробуй этот код
var
x,y,z,a,b:real;
begin
readln(y);
a:=3.69/sqrt(1000);
a:=power(a,1/3);
b:=2.468/a;
x:=power(a,0.2);
z:=((sqr(x)+sqr(y))*2)/sqr(y)-sqr(x);
writeln(z);

end;