Я как понял нужен любой алгоритм??
Если да,то вот пример на PASCAL,если нет,то извеняюс! Видимо вопрос не понял.
Число в степени

Program Stepen_chisla;
Var 
  Z, А : Real; M : integer;
Function Step (N: integer; X:real): real;
Var 
  I: integer; Y: Real;
    Begin
      I:=1; Y:=1;
      While I<=N do
        Begin
          Y:=Y*X; I:=I+1;
        End;
          Step:=Y;
      End; {Конец функции}
Begin
   Write(‘Введи степень и возводимое число’); Readln(Z,M);
   F:=Step(M,Z);
   Writeln(Z, ‘ в степени’, M, ‘=’,F);
End.