{ реурсивные алгоритмы: вычисление факториал }
var n:integer;

function f(x:integer):longint;
begin
   if x = 1 then f := 1 else f := x * f(x-1);
end;

begin
     writeln('введите N (N=1..13)');
     readln(n);
     writeln('N!=',f(n));
end.
