program fakultaet(input,output); {$N+,E+} uses crt; function fak(k:integer):extended; begin if k=0 then fak:=1 else fak:=fak(k-1)*k; end; var x: integer; begin clrscr; writeln('Geben Sie die Zahl ein ! '); readln(x); writeln;writeln(fak(x)); repeat until keypressed; end.