В Паскале !! Заранее спасибо )))

[Alexxxxxx]

Помогите решить пример через цикл For , в Паскале , плз !!! Вот адрес примера http://www.fayloobmennik.net/1096672

[dosha]

в примере нету ошибки? ато както странно икс там стоит

[Alexxxxxx]

Сообщение от dosha

в примере нету ошибки? ато както странно икс там стоит

Нет нету там ошибки , x,n: мы должны их ввести )))

[Alexxxxxx]

Задание мое звучит так : Составить программу вычисления выражения для заданных натурального числа n и действительного числа x !!!

[dosha]

uses math;
function factorial(n: integer): extended;
begin
if n > 1
then factorial := n * factorial(n-1);
else factorial:= 1; 
end;

var n,k:integer;
    r:extended;
begin
   r:=0;
  for k:=1 to n do
  r:=r+((power(1-x,k+1)+1)/(sqr(factorial(k-1)+1)));
end;

ну какбэ так