Program Faktorial;

uses Crt;

var n,i: integer;

    f,faktorialN: extended;    {10^(-4932)..10^4932}

begin

 writeln;  writeln;   writeln('Program Faktorial');   writeln;   writeln('Maximalni hodnota: 1754!');

 writeln('Hodnoty vetsi nez 1754!, jsou moc velke i pro pocitac!'); 

 writeln('Po zadani hodnoty N stiskni enter!');   writeln;   write('Zadej N: ');   readln(n);

 if n<=1754 then begin

               writeln('Spravne zadana hodnota z mnoziny {1..1754}');

               writeln;

               f:=1;

               for i:=1 to n do f:=f*i;

               faktorialN:=f;

               writeln('Faktorial:  ',n,'! = ',faktorialN);

               end

            else writeln('Hodnota N mimo mnozinu {1..1754}');

 writeln;  writeln;  writeln;  writeln('Po precteni vysledku stiskni enter!');

 repeat until keypressed;

 end.