TurboPascal. Вычислить значение арифметического выражения

[Apache116]

Всем Здравствуйте!
Помогите пожалуйста сделать задание.
Скрин прикрепил к сообщению.
Разработать программу для вычисления:
1) значения заданного арифметического выражения
f=x+√(|x|+e^y )-(z^3*〖sin〗^2⁡(y))/(y+z^2/(y-x))
2)значения заданной функции и вывода на экран полученных результатов.
Значения исходных данных выбираются произвольно. Ввод исходных данных организовать любым известным вам способом (использовать не менее двух способов)
i=3x^3+3y^2,при x>|y| ;
|x-y|,при 3<x<|y| ;
(x-y)^2,при x=|y|

Вот пробовал сам сделать по образцу. Если не правильно подскажите где ошибка.

var
X,Y,Z,i:Real;
Begin
X:=3;
Y:=5;
Z:=6;
Y:=(x+sqrt(abs(x)+exp(y)))-exp(3*ln(z))*sqr(sin(y))/((y+sqr(z)/(y-x)));
WriteLn('Y= ',Y:8:3);
if (x>abs(y)) then i:=3*(exp(3*ln(x))+3*(sqr(y)));
if (x>3) and (x<abs(y)) then i:=abs(x-y);
if (x=abs(y)) then i:=sqr(x-y);
WriteLn('i= ', i:8:3);
end.

[Apache116]

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

Всем Здравствуйте!
Помогите пожалуйста сделать задание.
Скрин прикрепил к сообщению.
Разработать программу для вычисления:
1) значения заданного арифметического выражения
f=x+√(|x|+e^y )-(z^3*〖sin〗^2⁡(y))/(y+z^2/(y-x))
2)значения заданной функции и вывода на экран полученных результатов.
Значения исходных данных выбираются произвольно. Ввод исходных данных организовать любым известным вам способом (использовать не менее двух способов)
i=3x^3+3y^2,при x>|y| ;
|x-y|,при 3<x<|y| ;
(x-y)^2,при x=|y|

Вот пробовал сам сделать по образцу. Если не правильно подскажите где ошибка.

var
X,Y,Z,i:Real;
Begin
X:=3;
Y:=5;
Z:=6;
Y:=(x+sqrt(abs(x)+exp(y)))-exp(3*ln(z))*sqr(sin(y))/((y+sqr(z)/(y-x)));
WriteLn('Y= ',Y:8:3);
if (x>abs(y)) then i:=3*(exp(3*ln(x))+3*(sqr(y)));
if (x>3) and (x<abs(y)) then i:=abs(x-y);
if (x=abs(y)) then i:=sqr(x-y);
WriteLn('i= ', i:8:3);
end.

уже сделал

var
  f, X, Y, Z, i: Real;
 
begin
  X := 3;
  Y := 5;
  Z := 6;
  f := x + sqrt(abs(x) + exp(y)) - (z * z * z * sqr(sin(y)) / ((y + sqr(z) / (y - x))));
  WriteLn('Y= ', f:16:6);
  if x > abs(y) then 
    i := 3 * x * x * x + 3 * (sqr(y))
  else
  if (x > 3) and (x < abs(y)) then 
    i := abs(x - y)
  else
  if (x = abs(y)) then 
    i := sqr(x - y);
  WriteLn('i= ', i:16:6);
end.