Вычислить n в степени n

[carman]

Здравствуйте, помогите вычислить n в степени n. В общем нужна тут длинная арифметика, как я понял. Есть кое-какие наброски, но результат неверный выходит.

var m,N,i,res,j:integer;
A: array[0 .. 10000] of integer;
P: array[0 .. 10000] of integer;
perenos: array[0 .. 10000] of integer;
begin
write('введите N: ');
readln(N);
j:=1;
A[1]:=1;
P[0]:=0;
for i:= 1 to N do
   begin
     for j:=1 to 10 do
       begin
       A[j]:=(A[j]*N + P[j-1]) mod 1000;
       P[j]:=(A[j]*N + P[j-1]) div 1000;
       writeln('-j ',j);
       end;
   end;
for m:= 1 to N do
   begin
   writeln('член массива ', m, ': ', A[m]);
   end;
end.

правильно получается только последние три разряда.

[Plague]

Какие ограничения на n?

[carman]

n меньше или равно 1000

[Plague]

Тут отвечал, функция умножения длинного числа на integer.

[carman]

Спасибо, попробую применить

[Plague]

Примерно так:

var s: string;
    n,i: integer;
begin
  readln(n);
  s:='1';
  for i:= 1 to n do s:=mul(s,n);
  writeln(s);
end.

[carman]

Все работает, еще раз спасибо за помощь!