MODULE fakultaet;

   FROM InOut IMPORT WriteString, WriteCard, ReadCard, WriteLn;

   VAR
      i, n, fak: CARDINAL;

(* Berechnung der Fakultaet einer Zahl n, wobei die 
   Fakultaet das Produkt der ersten n natuerlichen Zahlen ist.
   Fakultaet(n) = 1 * 2 * 3 * ... * (n-1) * n
 *)

BEGIN
   WriteString("n = ");
   ReadCard(n);

   i := 1;
   fak := 1;
   WHILE i <= n DO
      fak := fak * i;
      INC(i);   (* i um eins erhoehen. Ist das gleiche wie i := i + 1; *)
   END;  
   
   WriteString("Fakultaet(n) = ");
   WriteCard(fak, 0);
   WriteLn;
END fakultaet.