вычисления значения. паскаль

[uropb992]

составить прог-му вычисления значения следующей функции
при n=0
х^n=большая фигурная скобка 1/x^-n при n<0
x^n при n>0

[ROMA2PVT]

Выкладывайте ваши наработки и тогда вам кто нить и поможет.

[ROMA2PVT]

Uses
   CRT;
var
   n,x,y:real;
begin
  write('Введите число X:=');
  readln(x);
  write('Введите степень N:=');
  readln(n);
      if n=0 then y:=exp(ln(x)*n)
      else
      if n>0 then y:=exp(ln(x)*n)
      else
      if n<0 then y:=exp(ln(1/x)*n);
write(y);
readkey;
end.

[uropb992]

Спасибо большое ))))