Pascal/Turbo Pascal - otra ayuda con un programa

Antes que nada gracias por contestar mi anterior duda, me ha sido de mucha ayuda, gracias.
Esque ahora necesito hacer un programa que lea un número intruducido por el usuario y lo eleve a una potencia también introducida por el usuario. por ejemplo N elevado a E, donde N es un número cualquiera y E es una potencia cualquiera
Gracias.

Aquí va el programa de Potencias que solicitabas:

Program Potenc;

Var
Base, Exponente :Byte;
Resultado :LongInt;
Indice :Byte;

Begin
Write('Ingrese la Base: ');
ReadLn(Base);
Write('Ingrese el Exponente: ');
ReadLn(Exponente);
Resultado := 1;
For Indice := 1 to Exponente do
Resultado := Resultado*Indice;
WriteLn(Base, '^', Exponente, ' = ', Resultado);
ReadLn;
End. {Potenc}

No hay validación de datos, pero si quieres algo más complejo, envíame un e-mail y te solucionaré el problema con gusto. Saludos ;-)

Bescir:

Aquí va el programa de Potencias pero mejorado:

------------------------------------------------------------------------------------
Program Potencias;

Var
N, E :Real;

{ Entrega 'Base' elevada a 'Exponente' }
Function Pow(Base, Exponente :Real) :Real;
Begin
If (Expnente Div 2=0) then
Base := Abs(Base);
If (Base < 0) then
Pow := -1.0 * Pow(Abs(Base), Exponente)
Else
Pow := Exp(Exponente*Ln(Base));
End; {Pow}

Begin
Write('Ingrese Base: ');
ReadLn(N);
Write('Ingrese Exponente: ');
ReadLn(E);
WriteLn(Base:4:2, ' ^ ', Exponente:4:2, ' = ', Pow(N, E):4:2);
ReadLn;
End; {Potencias}
------------------------------------------------------------------------------------

Espero que te sea de utilidad. Saludos ;-)