Как решить задачу в паскале с факториалом

[Nikki_Fantomkhayv]

Натуральное число n вводится с клавиатуры в пределах от 10 до 100. Вычислить S

[whatever]

факториал считается так:

function fact(a:integer):Real;
begin
  result:=1;
  while a<>0 do
    begin
      result:=result*a;
      dec(a);
    end;
end;

возведение в числа a в степень n:

power(a,n);

Все остальное в цикле.

[Mad_Cat]

n вводится с клавиатуры в пределах от 10 до 100.

ну для 100! longint не хватит)

[whatever]

Ага, не заметил. Значит Real;

Опытным путем установил, что до 170 хватает :D

[Nikki_Fantomkhayv]

А как вычислить S?

[whatever]

for i:=1 to n do
  fact(i+1)/(power(2,i)*fact(i));