Циклы с заданым числом повторений

[Анютка......]

http://kit.zsu.zp.ua/iLec/1sem/PROGR...pas/Lr2pas.htm номер 18.

[alex_fcsm]

var mult,x:real;
    i,n:integer;

function power(x:real;y:integer):real;
begin
if y=1 then power:=x
   else power:=power(x,y-1);
end;

begin
writeln('Input x');
readln(x);
writeln('Input n');
readln(n);
mult:=1;
for i:=1 to n do
  mult:=mult*(power(1-x,i+1)+1)/sqr(i);
writeln(mult:10:10);
end.

[Анютка......]

Спасибо большое!