как записать в паскале. как записать в паскале произвольную степень отличную от квадрата

var x, y:real;

Function pow(Var chislo, stepen:Real) : Real;
Var per:real;
Begin
Per:= Abs(chislo);
If chislo < 0 Then Pow:= (-1)*Exp((stepen)*Ln(per))
Else Pow:= Exp((stepen)*Ln(per));
end;

begin
readln(x);
readln(y);
writeln(pow(x,y):3:8);

end.