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.