[Archer666]

Код:

function Fxn(X,n:Real):real; //возвращает X^n
  begin
   if X=0
    then Fxn:=0
    else if n=0
        then Fxn:=1
        else if X<0
        then
              begin
                      Label1.Caption:='При отрицательном Х вычисляется по абсолютному значению!'
                      Fxn:=exp(n*ln(abs(X)))
              end
                else Fxn:=exp(n*ln(X))
   end;

ругается на "unknown identifier" не могу разобраться как написать, помогите пожалуйста...