Traduction pascal : Factorielle d'un entier :

salut a tous voila la traduction en pascal d'un program qui permettent de calculer le factorielle d'un réel ::




program fact;
uses wincrt ;
var
   n, fact_n, x : integer;
begin
writeln ('                 ***** visiter outil-du-web.blogspot.fr ***** ') ;
     writeln('Entrez l''entier strictement positif dont vous souhaitez calculer la factorielle');
     readln(n);
     if (n=0) or (n<0)
     then write('Le nombre entré doit être strictement positif!')
     else if n>0
     then for x:=1 to (n-1) do
     fact_n:=(n*x);
     writeln(n,'!=',fact_n);
     readln;

end.

@++