program faktorialis;
uses newdelay,crt;

var n:integer;


function fakt(const n:integer):longint;      {az‚rt nem var az n mert akkor a c¡met n‚zn‚ nem pedig a (n-1)-et}
var f:longint;
begin
if (n=0) or (n=1) then f:=1
       else f:=n*fakt(n-1);
fakt:=f;

end;


begin
clrscr;
writeln('Adja meg a, hogy melyik sz m faktori lis ra kiv ncsi :');
readln(n);
fakt(n);
writeln('A faktori lis ‚rt‚ke: ',fakt(n));
readln;
end.