Fatorial de um Numero. Função Downto.

//Fatorial de um Numero. Função downto.

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

  for i:= 2 to n do
      fat  := fat * i;
  writeln(' O fatorial de ', n, ' eh ', fat);

       fat := 1;

  for i:= n downto 2 do
      fat  := fat * i;
   writeln(' O fatorial de ', n, ' eh ', fat);


  readkey;
end.