fak
----
Syntax: fak(x)

    x eine natrliche Zahl oder 0 von der die 
      Fakultt errechnet werden soll.

Ergebnis: - eine Dezimalzahl, die das Ergebnis der  
             errechneten Fakultt darstellt.
          - 'FALSE', wenn x keine natrliche Zahl 
             ist

Zweck:
Es wird die Fakultt einer bergebenen Zahl 
berechnet und zurckgegeben.

Definition von Fakultt:
0!=1
x!=(x-1)! * x
wobei ! fr Fakultt steht und x eine beliebige 
natrliche Zahl >0 ist.

Im Gegensatz zu der Definition wird in der 
Prozedur die Fakultt iterativ berechnet. 
Angefangen mit x*x-1*....*1=fak(x).

Beispiel:
fak(9)
Ausgabe: 362880

fak(3)
Ausgabe: 6

fak(djkh)
Ausgabe: -1

fak(5)
Ausgabe: 120

fak(0)
Ausgabe: 1