Exercice 14 : Calcul factoriel

debut du programme Factoriel.
  ecrire ('Quel factoriel voulez-vous calculer ?')
  lire facto
  Si facto >= 1 Alors
    result <-- 1
    pour i allant de 1 à facto
      result <-- result * i
    finpour
    ecrire('le factoriel de "facto" est "resultat")
  Sinon
    ecrire('le factoriel de "facto" ne peut être calculé)
  Fin Si
fin

program factoriel;

var
  facto: longint;

begin
  writeln('Quel factoriel voulez-vous calculer ?');
  readln (facto);
  if (facto >= 1) then
  begin
    result := 1;
    for i:=1 to facto do
      result := result*i;
    writeln('le factoriel de "',facto,'" est ',result)
  end
  else
    writeln('le factoriel de "',facto,'" ne peut être calculé)
end.

facto = input("quel factoriel voulez-vous calculer ? ")
if facto >= 1 :
  result = 1
  for i in range(1,facto+1):
    result = result * i
  print "le factoriel de ",facto," est ",result
else:
  print "le factoriel de ",facto," ne peut etre calcule"