Program Factorial;
var n, i : integer;
    F : longint;
    Intrare, Iesire : text;
    label 1;
begin
   { Citirea datelor de intrare }
   assign(Intrare, 'fact.in');
   reset(Intrare);
   readln(Intrare, n);
   close(Intrare);
   { Calcularea factorialului }
   F:=1;
   if n=0 then goto 1;
   for i:=1 to n do F:=F*i;
1: { Scrierea datelor de iesire }
   assign(Iesire, 'fact.out');
   rewrite(Iesire);
   writeln(Iesire, F);
   close(Iesire);
end.