Function factorial(N: integer) : longint;
Begin
   If N= 0 then
   Factorial := 1
   Else Factorial := factorial(N-1) * N
End;
var n:integer;
begin
write('Vvedite chislo ');
readln(n);
writeln(factorial(n));
end.