Вычислить значение выражения

program pr;
const
  x = 3.251;
  y = 0.325;
  z = 0.466E-4;
var
  c: real;
begin
  c := (exp(exp(x) * ln(y)) * ln(2)) + (exp(y) * ln(exp(x) * ln(3))) - (y * ((sin(z) / cos(z)) - (pi / 6)) / (abs(x) + 1 / (y * y + 1)));   // tg(x)=sin(x)/cos(x), так как функции тангенс может и не быть, поэтому тут в общем
  writeln(c:1:3);
end.

{$MODE TP}
const
    x = 3.251;
    y = 0.325;
    z = 0.466E-4;
function MyPower(const base, exponent: Double): Double;
var
    Result: Double; //удалить раздел var вместе с данной строкой в случае ошибки повторного объявления
begin
    if (base > 0)
    then
        Result := Exp(Ln(base) * exponent)
    else
        if (base = 0)
        then
            Result := 0
        else
            Result := -Exp(Ln(Abs(base)) * exponent);
    MyPower := Result;
end;
begin
    WriteLn('c=', (MyPower(2, MyPower(y, x)) + MyPower(MyPower(3, x), y) - y * (Arctan(z) - PI / 6) / (Abs(x) + 1 / (Sqr(y) + 1))):0:3);
end.