Нахождение степени числа "х"

[uropb992]

Pascal
Вычислить значение выражения y=x^n+x^(n-1)+x^(n-2)+...+x+1, значения "x" и "n" вводятся с клавиатуры. Нахождение степени числа "х" оформить в виде процедуры.


procedure stepen(x1:real; n1:integer; var z1:real);
var i:integer;
begin
z1:=1;
for i:=1 to n1 do
begin
z1:=1*x1;
end;
end;
var n,j:integer;
var x,y,z:real;

begin
readln(x);
readln(n);
y:=0;
for j:=0 to n do
begin
stepen(x,n,z);
y:=y+z;
end;
writeln(y);
end.

В проге ошибка( никак не могу ее исправить

procedure stepen(x1:real; n1:integer; var z1:real);
var i:integer;
begin
z1:=1;
for i:=1 to n1 do
begin
z1:=1*x1; <- Здесь вычисление функции неправильное ((
end;
end;

допустим если вводить 2 числа "3" и "2" то должно получиться 3^2+3^1+3^0=9+3+1=13
А у меня по этой проге выходит 9

[ROMA2PVT]

http://programmersforum.ru/showthrea...=102858&page=2
тебе кросспостить чтоли нравится.Volt же написал её тебе.