Вычислить факториал - Turbo Pascal (30523)

var
  p,f:real;
  i:integer;
begin
  p:=1.0;
  f:=1.0;
  for i:=2 to 11 do begin
    f:=f*i;
    p:=p*(1-1/f);
  end;
  writeln('P=',p:0:4);
  readln;
end.