Помогите написать уравнения на Паскале

program urok;
var
  x, y, z, f: real;
begin
  x := 1.825; // пример значения x
  y := 18.225; // пример значения y
  z := -3.298; // пример значения z
  y := Abs(Power(x, y / x) - Power(y / x, 1/3));
  f := (y-x)*(y - z/(y-x))/(1+sqr(y-x));
  writeln('y = ', y); // вывод значения y
  writeln('f = ', f); // вывод значения f
end.