Program FaktRekur;

function Faktorial(a: longint):longint;
begin
  if a=1 then
    Faktorial:=1
  else
    Faktorial:=a*Faktorial(a-1);
end;

var cislo: integer;

begin
  writeln('Zadej slo: ');
  readln(cislo);
  writeln(cislo, '! = ', Faktorial(cislo));
  readln;
end.
