{ Riesenie - vypocet faktorialu }

program faktor;

{$MODE DELPHI} { aby sme mohli pouzit Result }

function faktorial(n: integer): integer;
begin
 if n > 1 then
  Result := n*faktorial(n-1)  {n! = n*(n-1)!}
 else
  Result := n;
  { pri cisle 1 sa zastavime a vratime vysledok }
end;

var
 c: byte; { cislo s rozsahom 0 az 255 }

begin
 writeln('Zadajte cislo.');
 readln(c);
 if (c >= 1) and (c <= 12) then
  writeln('Faktorial cisla ',
   c, ' je ', faktorial(c), '.')
 else
  writeln('Cislo je mimo rozsahu.');
 readln; { cakanie na stlacenie Enter }
end.