Fatorial de Um Numero

program fatorial1;
uses crt;
var
  i          : integer;
  s          : real;
  n          : integer;
begin
     s := 1;
  writeln('Digite o Valor: ');
  readln(n);

  for i:= 1 to n do
      s   :=   i / ((i -1) + I);
  writeln(' O valor de s ', n, ' eh ', s);



  readkey;
end.