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.