La potenciación no es más que una suceción de multiplicaciones por tanto 2 elevado a la 3 significa multiplicar tres veces dos, ¿cierto?, este sería el algoritmo en Pascal:
function Potencia(Base, Exponente: Integer): Integer;
var
I: Integer;
Result: Integer;
begin
Result:=1;
For I:=1 to Exponente do
Result:=Result*Base;
end;
Ten en cuenta que en mi ejemplo no hay verificación de ningún tipo.