Проблема с возведением в степень.

[Hope)]

Программа на паскале:
Дано:x[0]=2, 10
Найти:x[n]=(x[n-1]-1)^n/(2*n+1), z=∑√lx[n]l.
n=1
Подскажите, пожалуйста, как возвести в степень (через экспоненту не катит).

PROGRAM prim5;
uses crt;
VAR x, n, z, a: real;
I: integer;
BEGIN
clrscr;
writeln('Ответ');
n:=2;
z:=0;
for i:=1 to 10 do begin
n:=n-1;
{вот тут надо поставить возведение в степень}
a:=2*n+1;
n:=n/a;
z:=z+SQRT(ABS(n));
end;
writeln(z:6:3);
END.

[Pein95]

с помощю цыклов например for

[Hope)]

Ну можите написать, просто сколько сама не пробовала, с ручным расчетом не сходится. У нас препод проверяет и саму программу, и еще ручной расчет к ней.

[Pein95]

program kl;
var a,b,c,i:integer;
begin
a:=2;
c:=a;
b:=5;
i:=2;
for i:=2 to b do
begin
a:=a*c;
end;
writeln(a);
end.

возведения 2^5

[Hope)]

Ну я тоже самое и делала. Не сходится.

[Pein95]

странно у мя работает нормально ищите ошибку у себя

[Hope)]

Спасибо за помощь)
Но вопрос остается открытым.