ЦИКЛЫ с ФАКТОРИАЛОМ Опции

[SAF]

Пожалуйста помогите решить задачу.... понятие не имею как этот факториал записать....помогите очень надо.......завтра сдавать.........

n - вводиться с клавиатуры.......

[SAF]

нет она неправильная......оказвываеться........мне ее сделали так.......есть еще один вариант этот я сам делал.....проверьте пжлста......вроде как все правильно.......но все таки я сомневаюсь....

program albert;
uses crt;
var i,k,n:integer;
b,p,s:real;
begin
clrscr;
s:=-1;
k:=1;
b:=-1;
writeln ('vvedite n');
readln(n);
for i:=2 to n do
begin
k:=k*(i-1);
b:=b*(-1);
p:=b/(k*k*i);
s:=s+p;
end;
writeln ('otvet',s:6:20);
readln;
end.

.